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This publication is directed to program- 3. 
mers using either the IBM System/360 
FORTRAN IV (G) or FORTRAN IV (H) compiler. 
It explains how to compile, linkage edit, 
and execute programs under control of the 
IBM System/360 Operating System. The 
FORTRAN IV language is described in the 
publication IBM System/360 FORTRAN IV Lan- 
guage, Form GC28-6515, which is a corequi- 
site to this publication. 


Most of the information contained in 
this guide is common to both the FORTRAN IV 
(G) and FORTRAN IV (H) compilers. Where 
differences exist, they are clearly marked. 


Paragraphs or sections applicable to the 
(G) compiler, but not the (H), are desig- 
nated throughout this publication by the 
symbol : 


Conversely, paragraphs or sections appli- 
cable to the (H) compiler, but not the (G), 
are designated by the symbol: 


The programmer's guide is designed to 
provide programmers with information at 
three levels of complexity. 


1. Programmers who will use the cataloged 
procedures as provided by IBM should 
read the "Introduction" and "Job Con- 
trol Language" sections to understand 
the job control statements, the 
"FORTRAN Job Processing" section to 
understand the use of cataloged proce- 
dures, the “Programming Considera- 
tions" section to be able to use the 
FORTRAN language correctly and effi- 
ciently, and the “System Output" sec- 
tion to understand the listings, maps, 
and messages generated by the compil- 
er, the linkage editor, and a load 
module. 


2. Programmers who, in addition, are con- 
cerned with creating and retrieving 
data sets, optimizing the use of I/0 
devices, or temporarily modifying IBM- 
supplied cataloged procedures should 
read the entire programmer's guide. 


PREFACE 


Programmers who are concerned with 
making extensive use of the operating 
system facilities, such as writing 
their own cataloged procedures, modi- 
fying the FORTRAN library, or calcu- 
lating region sizes for operating in 
an MVT environment, should also read 
the entire programmer's guide in con- 
junction with the following publica- 
tions, as required: 


IBM System/360 Operating System: 
Job Control Language Reference, 


Form GC28-6704 


IBM System/360 Operating System: 
Job Control Language User's Guide, 
Form GC28-6703 


IBM System/360 Operating System: 
Concepts and Facilities, Form 
GC 28-6535 


IBM System/360 Operating System: 
System Programmer's Guide, Forn 


GC 28-6550 


IBM System/360 Operating System: 
Supervisor and Data Management Ser- 
vices, Form GC28-6646 








IBM System/360 Operating System: 
Supervisor and Data Management 
Macro Instructions, Form GC28-6647 


IBM System/360 Operating System: 


Utilities, Form GC28-6586 
IBM System/360: FORTRAN IV 





Library: Mathematical and Service 
Subprograms, Form GC28-6818 





IBM System/360 Operating System: 


Linkage Editor and Loader, Form 
GC28-6538 


IBM System/360 Operating System: 
System Generation, Form GC28-6554 


IBM System/360 Operating System: 
Operator's Guide, Form GC28-6540 


IBM System/360 Operating System: 
Messages and Codes, Form GC28-6608 


IBM System/360 Operating System: 
Programmer's Guide to Debugging, 


Form GC28-6670 


IBM System/360 Operating System: 
Storage Estimates, Form GC28-6551 


This publication contains appendixes 


that provide the programmer with the fol- 
lowing information: 


Descriptions and explanations of com- 
piler invocation from a problem 
program. 


Examples of job processing. 


Descriptions and explanations for the 
preparation of subprograms written in 
assembler language for use with a main 
program written in FORTRAN. 


Descriptions of the diagnostic messages 
produced during compilation and load 
module execution. 


A list of American National Standard 
carriage control characters. 


°e A list of input/output unit types. 


e A description of the FORTRAN IV (H) 
optimization features. 


e A description of the FORTRAN IV (G) 
debug facility. 


® A discussion of FORTRAN programming 
considerations for the user of the IBM 
System/360 Models 91 and 195. 


For easier reading, the titles of publi- 
cations referred to in this publication are 
abbreviated. For example, references to 
the publication IBM System/360 Operating 


System: Linkage Editor and Loader are 
abbreviated to Linkage Editor and Loader 


publication. 
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The IBM System/360 Operating System con- 
sists of a control program and processing 
programs. The control program supervises 
execution of all processing programs, such 
as the FORTRAN compiler, and all problem 
programs, such as a FORTRAN program 
Therefore, to execute a FORTRAN program, 
the programmer must first communicate with 
the operating system. The medium of com- 
munication between the programmer and the 
operating system is the job control 
language. 


The programmer uses job control state- 
ments to define two units of work -- the 
job and the job step -- to the operating 
system and to define the files (data sets) 
used in these jobs and job steps. He 
defines a job to the operating system by 
using a JOB statement; a job step by using 
an EXEC statement; and a data set by using 
a DD statement. 


JOB AND JOB STEP RELATIONSHIP 


To the operating system, a job consists 
of executing one or more job steps. In the 
simplest case, a job consists of one job 
step. For example, executing a FORTRAN 
main program to invert a matrix is a job 
consisting of one job step. 


In more complex cases, one job may con- 
sist of a series of job steps. For 
example, a programmer is given a tape con- 
taining raw data from a rocket firing: he 
must transform this raw data into a series 
of graphs and reports. Three steps may be 
defined: 


1. Compare the raw data to projected data 
and eliminate errors which arise 
because of intermittent errors in 
gauges and transmission facilities. 


2. Use the redefined data and a set of 
parameters as input to a set of equa- 
tions, which develop values for the 
production of graphs and reports. 


3. Use the values to plot the graphs and 
print the reports. 


Figure 1 illustrates the rocket firing 
job with three job steps. 


In the previous example, each step could 
be defined as a separate job with one job 
step in each job. However, designating 
related job steps as one job is more effi- 
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cient: processing time is decreased 
because only one job is defined, and inter- 
dependence of job steps may be stated. 

(The interdependence of jobs cannot be 
stated.) 


Projected 
Data ~ 
Job Step 2: 
P t | —— ae Pp 
(~- Develop Values 


Job Step 1: 
Refine Data 


Job Step 3: 
Generate 
Graphs and 
Reports 





Figure 1. Rocket Firing Job 


FORTRAN PROCESSING AND CATALOGED PROCEDURES 


When a programmer writes a FORTRAN pro- 
gram, the objective is to obtain a problem 
solution. However, before the program can 
provide this solution, the program itself 
must undergo processing. The source pro- 
gram (source module) is compiled to give an 
object module; and the object module is 
linkage edited to give a load moaule.1 This 
load module is then executed to give the 
desired problem solution. 


If each of the three steps involved in 
processing a FORTRAN module is a job step 
in the same job, a set of job control 
statements that consists of one EXEC state- 
ment and one or more DD statements is 


14As an alternative, the object module may 
be edited and then automatically executed 
by the loader, another IBM-supplied pro- 
gram. Details on the use of the loader 
can be found in the section "Loader 
Processing." 
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required for each step. Because writing 
these job control statements can be time- 
consuming work for the programmer, IBM sup- 
plies cataloged procedures to aid in the 
processing of FORTRAN modules. A cataloged 
procedure consists of a procedure step or a 
series of procedure steps. Each step con- 
tains the necessary set of job control 
statements to compile or to linkage edit or 
fo execute a FORTRAN module. (Note: A JOB 


statement cannot be cataloged.) 


For each compiler, IBM provides five 
cataloged procedures. The procedures and 
their uses are shown in Table 1. 


Any of the cataloged procedures can be 
invoked by an EXEC statement in the input 
stream. In addition, each of the proce- 
dures can be temporarily modified by this 
EXEC statement and any DD statements in the 
input stream; this temporary modification 
is called overriding. 


Table 1. Cataloged Procedure-Names and 
Functions 
acta archaeal eat 1 
| Procedure-Name_ | 
~~------- q---------4------------=--------1 
| FORTRAN G|FORTRAN H] Function | 
}--------- }--------- 4-----------==-------- { 
a-- ~~~ - === 4-------—------------ 
| FORTGC | FORTHC | compile | 
~-------- }---------}------------~--------4 
JFORTGCL {|FORTHCL |compile and linkage | 
| | | edit | 
|--------- --------- $-~--~---------------- 4 
{FORTGLG |FORTHLG |linkage edit and | 
| | | execute | 
[--~-~--—- }--------- $--------------------- { 
| FORTGCLG |FORTHCLG |compile, linkage | 
| | | edit, and execute | 
—-------- 4---------+-------------~-------] 
| FORTGCLD |FORTHCLD |compile and load | 
ace er ee dec oes i aa ea eras ee eer ape J 


DATA SETS 


For FORTRAN processing, a programmer 
uses DD statements to define the particular 
data set(s) required for a compile, linkage 
edit, or execute step. In the operating 
system, a data set is a named, organized 
collection of one or more records that are 
logically related. For example, a data set 
may be a source module, a library of mathe- 
matical functions, or the data processed by 
a load module. 


A data set in FORTRAN may be one of 
three types: sequential, partitioned or 
direct-access, 
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records are accessed solely on the basis of 
their successive physical positions. A 
sequential data set may reside on cards, 
tape, or disk. The compiler, linkage edi- 
tor, and load modules process sequential 
data sets. The compiler uses the queued 
sequential access method (QSAM) for such 
processing, and load modules use the basic 
sequential access method (BSAM) for object 
time I/O operations. (For additional 
information on access methods, see the 
Supervisor and Data Management Services 
publication, Order No. 





GC28-6646.) 


A partitioned data set (PDS) is composed 
of named, independent groups of sequential 
data and resides on a direct-access volume. 
directs the operating system to any group 
of sequential data. Each group of sequen- 
tial data is called a member. Partitioned 
data sets are used for storage of any type 
of sequentially organized data. In partic- 
ular, they are used for storage of source 
and load modules (each module is a member). 
In fact, a load module can be executed only 
if it is a member of a partitioned data 
set. A PDS of load modules is created by 
either the linkage editor or a utility pro- 
gram. A PDS is accessible to the linkage 
editor; however, only individual members of 
a PDS are accessible to the compiler. Mem- 
bers of a PDS are accessible to a FORTRAN 
load module; however, concurrent processing 
of two or more members of the same PDS is 
not supported. Sequential processing of 
two or more members is permitted if one 
member is closed before the other is pro- 
cessed. See the discussion “Partitioned 
Data Set Processing" for details on acces- 
sing partitioned data sets. 


The FORTRAN library is a cataloged PDS 
that contains the library subprograms in 
the form of load modules. SYS1.FORTLIB is 
the name given to this PDS. 


To process a member of a partitioned 
data set, the programmer must use the DD 
statement to provide information about the 
data set and the member. The programmer 
must specify (in the DSNAME parameter) both 
the name of the data set and of the member, 
and must indicate (in the LABEL parameter) 
if the member is to be created or retri- 
eved. However, if the programmer requests 
the FORTRAN compiler to process a parti- 
tioned data set (for example, to compile a 
source deck stored as a member of a parti- 
tioned data set) no LABEL information need 
be specified. 


Note that the processing of a parti- 
tioned data set is limited to READ or WRITE 
operations only. The programmer is not 
permitted both to READ and WRITE the same 
data set in a single program. 


A direct-access data set contains rec- 
ords that are read or written by specifying 
the position of the record within the data 
set. When the position of the record is 
indicated in a FIND, READ, or WRITE state- 
ment, the operating system goes directly to 
that position in the data set and either 
retrieves, reads, or writes the record. 

For example, with a sequential data set, if 
the 100th record is read or written, all 
records preceding the 100th record (records 
1 through 99) must be transmitted before 
the 100th record can be transmitted. With 
a direct-access data set the 100th record 
can be transmitted directly by indicating 
in the I/O statement that the 100th record 
is to be transmitted. However, ina 
direct-access data set, records can be 
transmitted by FORTRAN direct-access I/O 
statements only; they cannot be transmitted 
by FORTRAN sequential I/O statements. Rec- 
ords in a direct-access data set can be 
transmitted sequentially by using the asso- 
ciated variable in direct-access I/0 
statements. 


A direct-access data set must reside on 
a direct-access volume. Direct-access data 
sets are processed by FORTRAN load modules; 
the compiler and linkage editor cannot 
process direct-access data sets. Load 
modules process data sets of this type with 
the basic direct-access method (BDAM). 


Data Set Labels 


Data sets that reside on direct-access 
volumes have standard labels only; data 
sets that reside on magnetic tape volumes 
can have standard labels or no labels. 
Information, such as a data set identifier, 
volume sequence number, record format, 
density, etc., is stored in the data set 
labels. The information required in a DD 
statement used to retrieve a labeled data 
set is substantially less than in one used 
to retrieve an unlabeled data set. 


Data_Set Cataloging 


To relieve the programmer of the burden 
of remembering the volume on which a 
particular data set resides, the operating 
system provides a cataloging facility. 
When a data set is cataloged, the serial 
number of its volume is associated in the 
catalog with the data set name. A pro- 
grammer can refer to this data set without 
specifying its physical location. Any data 
set residing on a direct-access or magnetic 
tape volume can be cataloged. 


Sequential, partitioned, and direct- 
access data sets can be cataloged; however, 
an individual member of a PDS cannot be 
cataloged because a member is not a data 
set. 
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JOB_CONTROL LANGUAGE 


The FORTRAN programmer uses the job con- 
trol statements shown in Table 2 in compil- 
ing, linkage editing, and executing 
programs. 


JOB MANAGEMENT 


Job control statements are processed by 
a group of operating system routines known 
collectively as job management. Job man- 
agement routines interpret control state- 
ments, control the flow of jobs, and issue 
messages to both the operator and the pro- 


grammer. Job management has two major com- 
ponents: a job scheduler and a master 
scheduler. 

Table 2. Job Control Statements 
(ye co ere ee ee ee ge eae 1 
[Statement | Function | 
| JOB [Indicates the beginning of a_ | 
| [new job and describes that job| 
}-----------4-------------------------—---- 
| EXEC [Indicates a job step and de- 


| [scribes that job step; indi- 
l [cates the cataloged procedure 
| Jor load module to be executed 


| 
| 
| 
| 
aa a Ga eee | 
| 
| 
| 


[DD {Describes data sets, and con- 

| {trols device and volume 

| | assignment 

Fete eee ee ee 
jdelimiter |Separates data sets in the in-| 


l Jput stream from control state-| 
| |ments; it appears after each | 
| |data set in the input stream | 
|---------- }------------------------- ~----] 
| comment |Contains miscellaneous | 
|remarks, annotations, etc., | 
{written by the programmer; it | 
|can appear before or after any] 
|control statement. | 


r---- 


|77Name Operation Operand [Comment] 
I 

|7/ Operation Operand [Comment] 

| 


|/* [comment] 


I 
|77* [Comment] 


——~——-———+—4 


The specific facilities available 
through the job scheduler and the master 
scheduler depend on the scheduling level 
the installation selects during system 
generation. Schedulers are available at 
two levels -- the sequential scheduler and 
the priority scheduler. 


Sequential schedulers process job steps 
one at a time in the order of their 
appearance in the input stream. Operating 
systems with a primary control program 
(PCP) use sequential schedulers. 


Priority schedulers are used by systems 
that provide multiprogramming with a fixed 
number of tasks (MFT) or multiprogramming 
with a variable number of tasks (MVT). 
Priority schedulers process complete jobs 
according to their relative priority within 
job classes. Priority schedulers can 
accept input data from more than one input 
stream 


CODING JOB CONTROL STATEMENTS 


Except for the comment statement, con- 
trol statements contain two identifying 
characters (// or /*) in card columns 1 and 
2. The comment statement is identified by 
the initial characters //* in card columns 
1, 2, and 3. Control statements may con- 
tain four fields -- name, operation, 
operand, and comments (see Figure 2). 


NAME FIELD 


The name field contains between one and 
eight alphameric characters, the first of 
which must be alphabetic. The name field 
begins in card column 3 and is followed by 
one or more blanks to separate it from the 
operation field. The name field is used: 


JOB, EXEC, DD 
EXEC, DD 
delimiter 


comment 


1. To identify the control statement to 
the operating system. 


2. TO enable other control statements in 
the job to refer to information con- 
tained in the named statement. 


3. To relate DD statements to I/O state- 
ments in the load module. 


OPERATION FIELD 


The operation field contains one of the 
following operation codes: 


JOB 
EXEC 
DD 


or, if the statement is a delimiter or com- 
ment statement, the operation field is 
blank. The operation code is preceded and 
followed by one or more blanks. 


OPERAND FIELD 


The operand field contains the parame- 
ters that provide required and optional 
information to the operating system. 
Parameters are separated by commas, and the 
operand field is ended by placing one or 
more blanks after the last parameter. 

There are two types of parameters, posi- 
tional and keyword. 


Positional Parameters: Positional parame- 
ters are placed first in the operand field 
and must appear in the specified order. If 
a positional parameter is omitted and other 
positional parameters follow, the omission 
must be indicated by a comma. 


Keyword Parameters: Keyword parameters 
follow positional parameters in the operand 


field. (If no positional parameters 
appear, a keyword parameter can appear 
first in the operand field; no leading 
comma is required.) Keyword parameters may 
appear in any order. If a keyword parame- 
ter is omitted, a comma is not required to 
indicate the omission. 


Subparameters: Subparameters are either 
positional or keyword and are noted as such 
in the definition of control statements. 


Positional subparameters appear first in 
a parameter and must appear in the speci- 
fied order. If a positional subparameter 
is omitted and other positional subparame- 
ters follow, the omission must be indicated 
by a comma. 


Keyword subparameters follow positional 
subparameters in a parameter. (If no posi- 
tional subparameters appear, a keyword sub- 
parameter can appear first in the parame- 
ter; no leading comma is required.) Key- 
word subparameters may appear in any order. 
If a keyword subparameter is omitted, a 
comma is not required to indicate the 
omission. 


COMMENTS FIELD 


The comments field can contain any 
information considered helpful by the pro- 
grammer. Comments, except for those on a 
comment statement, must be separated from 
the operand field (or the * in a delimeter 
statement) by at least one blank; they may 
appear in the remaining columns up to and 
including column 71. 


continuing Control Statements 


Except for the comment statement, which 
is contained in columns 1 through 80, con- 
trol statements are contained in columns 1 
through 71 of cards or card images. If the 
total length of a statement exceeds 71 
columns, or if parameters are to be placed 
on separate cards, operating system con- 
tinuation conventions must be followed. To 
continue an operand field: 


1. Interrupt the field after a complete 
parameter or subparameter (including 
the comma that follows it) at or 
before column 71. 


2. Include comments, if desired, by fol- 
lowing the interrupted field with at 
least one blank. 


3. Optionally, code any nonblank charac- 
ter in column 72. If a character is 
not coded in column 72, the job 
scheduler treats the next statement as 
a continuation statement if the con- 
ventions outlined in points 4 and 5 
are followed. 


4. Code the identifying characters // in 
columns 1 and 2 of the following card 
or card image. 


5. Continue the interrupted operand 
beginning in any column from 4 through 


. 


Note: Excessive continuation cards should 
be avoided whenever possible to reduce 
processing time for the control program. 


Job Control Language 15 


Comments can be continued onto addition- 
al cards after the operand has been com- 
pleted. To continue a comments field: 


1. kEnterrupt the comment at a convenient 


place. 
4, 
2. Code a nonblank character in column 
72. 
3. Code the identifying characters // in 
columns 1 and 2 of the following card 
or card image. 
4, Continue the comments field beginning 5e 
in any column after column 3. 
Note: The comment statement cannot be 
continued. 
NOTATION FOR DEFINING CONTROL STATEMENTS 
The notation used in this publication to 
define control statements is described in 
the following paragraphs. 6. 
1. The set of symbols listed below are 
used to define control statements, but 
are never written in an actual 
statement. 
a. hyphen 
be or ! 
Ce underscore - 
dad. braces { } 
e. brackets { ] 
f. ellipsis aie 
ge superscript a 
The special uses of these symbols are 
explained in paragraphs 4-10. 
7 
Ze Uppercase letters and words, numbers, 
and the set of symbols listed below 
are written in an actual control 
statement exactly as shown in the 
statement definition. (Any exceptions 
to this rule are noted in the defini- 
tion of a control statement.) 
ae apostrophe . 
b. asterisk * 
Cc. comma ' 
d. equal sign = 8. 
€. parentheses () 
f. period 7 
ge slash / 


3. Lowercase letters, words, and symbols 
appearing in a control statement 
definition represent variables for 
which specific information is substi- 
tuted in the actual statement. 
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Example: If name appears in a state- 
ment definition, a specific value 
(e.g., ALPHA) is substituted for the 
variable in the actual statement. 


Hyphens join lowercase letters, words, 
and symbols to form a single variable. 


Example: If member-name appears in a 
statement definition, a specific value 
(e.g., BETA) is substituted for the 
variable in the actual statement. 


Stacked items or items separated from 
each other by the “or" symbol repre- 
sent alternatives. Only one such 
alternative should be selected. 


Example: The two representations 


A 
B and A|BIC 
c 


have the same meaning and indicate 
that either A or B or C should be 
selected. 


An underscore indicates a default 
option. If an underscored alternative 
is selected, it need not be written in 
the actual statement. 


Example: The two representations 


and A|BI|Cc 


OD p 


have the same meaning and indicate 
that either A or B or C should be 
selected; however, if B is selected, 
it need not be written, because it is 
the default option. 


Braces group related items, such as 
alternatives. 


Example: ALPHA=({A|B{C},D) 


indicates that a choice should be made 
among the items enclosed within the 
braces. If A is selected, the result 
is ALPHA=(A,D). If C is selected, the 
result can be either ALPHA=(,D) or 
ALPHA=(C,D). 


Brackets also group related items; 
however, everything within the brack- 
ets is optional and may he omitted. 


Example: ALPHA=({f{A|B|C],D) 


indicates that a choice can be made 
among the items enclosed within the 
brackets or that the items within the 
brackets can be omitted. If B is 


selected, the result is ALPHA=(B,D). 
If no choice is made, the result is 
ALPHA=(,D). 


9. An ellipsis indicates that the preced- 
ing item or group of items can be 
repeated more than once in succession. 
Example: ALPHA(,BETA]... 

indicates that ALPHA can appear alone 

Or can be followed by ,BETA optionally 


repeated any number of times in 
succession. 


10. A superscript refers to a description 
in a footnote. 


Example: NEW )+ 
\ orp! 
esi 
_ SHR } 


indicates that additional information 
concerning the grouped items is con- 
tained in footnote number 1. 


11. Blanks are used to improve the reada- 
bility of control statemént defini- 
tions. Unless otherwise noted, blanks 
have no meaning in a statement 
definition. 


JOB STATEMENT 


The JOB statement (Figure 3) is the 
first statement in the sequence of control 
statements that describe a job. The JOB 
statement contains the following 
information: 


1. Name of the job. 


2. Accounting information relative to the 
job. 


3. Programmer's name. 


4. Whether the job control statements are 
printed for the programmer. 


5. Conditions for terminating the execu- 
tion of the job. 


6. <A job priority assignment. 


7. Output class for priority scheduler 
messageSe 


8. Specification of main storage require- 
ments for a job. 


9. Specification of the maximum amount of 
time to be allotted for a job. 


Examples of the JOB statement are shown 
in Figure 4, 


NAME FIELD 


The “jobname™ must always be specified; 
it identifies the job to the operating sys- 
tem. No two jobs being handled concurrent- 
ly by a priority scheduler should have the 
same “jobname". 


OPERAND FIELD 


Job Accounting Information 


The first positional parameter can con- 
tain the installation account number and 
any parameters passed to the installation 
accounting routines. These routines are 
written by the installation and inserted in 
the operating system when it is generated. 
The format of the accounting information is 
specified by the installation. 


As a system generation option with 
sequential schedulers, the account number 
can be established as a required parameter. 
With priority schedulers, the requirement 
can be established with a cataloged proce- 
dure for the input reader. (Information on 
the cataloged procedure for the input read- 
er and on how to write an accounting rou- 
tine may be found in the System Program- 
mer's Guide, Form GC28-6550.) Otherwise, 
the account number is optional. 


Programmer's Name 


The “programmer name" is the second 
positional parameter. If no job accounting 
information is supplied, its absence must 
be indicated by a comma preceding the pro- 
grammer*s name. If neither job accounting 
information nor programmer's name is 
present, commas need not be used to indi- 
cate their absence. 


This parameter is optional unless it is 
made mandatory at the installation in the 
same way as job accounting information is 
made mandatory. 
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Positional Parameters 
{( laccount-number] (, accounting-information])+ 2 23] 


{, programmer-name]* 5 6 


(MSGLEVEL= (x, y) 17 
[COND=( (code, operator) [, (code, operator) J... 8) 9] 


| 

I 

| 

| 

I 

{ 

| Keyword Parameters 
| 

| 

| 

|! 

| (PRTY=nn]1° 


| [MSGCLASS=x]1° 


| 
| (REGION=( \nnnnnkK (, value,K])]12 
| value oK 

| 


| (TIME=(minutes, seconds) ]1° 
ee, boa on se eS wie ss sb on eh HS Ss sf 
| 1If the information specified ("account-number" and/or "accounting-information") con- | 
| tains blanks, or any special characters other than hyphens, it must be delimited by | 
| apostrophes instead of parentheses. 
| 2I£ only “account-number" is specified, the delimiting parentheses may be omitted. | 
{ ®*The maximum number of characters allowed between the delimiting parentheses or apos- | 
| trophes is 142. | 
| “If "“programmer-name" contains blanks, or any special characters other than periods, | 
| it must be enclosed within apostrophes. 
| ®When an apostrophe is contained within "“programmer-name", the apostrophe must be | 
| shown as two consecutive apostrophes. | 
| ®°The maximum number of characters allowed for "programmer-name" is 20. | 
| 7The symbol x represents a job control language message code and may be specified as | 
| 0, 1, or 2; y represents a job scheduler allocation message code and may be speci- | 
| ‘fied as 0 or 1. | 
| ®The maximum number of repetitions allowed is 7. | 
| °I1f only one test is specified, the outer pair of parentheses may be omitted. | 
{*°This parameter is used with priority schedulers only. The sequential scheduler | 
| ignores it. | 
Heirs parameter is used with MVT priority schedulers only. | 
J 


eee 3. JOB Statement 




























































| Sample Coding Form 

Pile 20, t- 30 alt 3-40 41-50, 51-60 i 6|-70 _ sok 71-80. 
ratalalaS riarajo" Te }sta oe S16 TaIS eee LeTaTOH TEISTA Sic Ota tol Bis MC BIO’ [elale sie glalsio" EST SSIES 1J2[3]4[5]6[7Jels 
EX ample 2 1. Lo eae if 00 KES A L j Te: Sued a 5 fu | Bred Ree § tou mp) feral | ran ee Pa plo fa i Eater l ces (ee Se ee eek WS Fas Done { me aan ee fede lid eed 
//PROGRAM VOB (21598 12,9, 2 HG W)9 he SMITH CONDE CHAT UMSGLEVEL EY tii tia 
|, Example Pie Sf ee i SI ae pba Tey 5 attotiiret sri tiiig 
4 /PROGZ JOB 18 87F-24>CONnD= (7947) :PRTY #10 2REGTON= 160K 1 ESE | see eae Ad SON ri er Fee ce | to. pad 1 potiy 





Figure 4. Sample Job Statements 
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Control Statement, Allocation, and 


Termination Messages 


The MSGLEVEL parameter indicates the 
type of messages the programmer wishes to 
receive from the control program. 


MSGLEVEL= (x, y) 
The letter x represents a job control 
language message code. The value of x 
may be 0, 1, or 2. When x=0, only the 
JOB statement, control statement 
errors, and diagnostics appear on SYS- 
OUT. When x=1, input statements, 
cataloged procedure statements, and 
symbolic substitutions of parameters 
appear. When x=2, only input state- 
ments appear. 


The letter y represents an allocation 
message code. The value of y may be 0 
or 1. When y=0, no allocation or ter- 
mination messages appear, if the pro- 
gram completes execution. In the 
event of an abnormal termination, only 
termination messages appear. When 
y=1, allocation, termination, and 
recovery messages all appear. 


If MSGLEVEL is omitted, the default 
values assigned are those established 
at system generation time for PCP or 
from the reader procedure in a multi- 
programming environment. 


Conditions for Terminating a_ Job 


At the completion of a job step, a code 
is issued indicating the outcome of that 
job step. This generated code is tested 
against the conditions stated in control 
statements. 


The COND parameter of the JOB statement 
specifies conditions under which a job is 
terminated. Up to eight different tests, 
each consisting of a code and an operator, 
may be specified to the right of thé equal 
sign. The code may be any number between 0 
and 4095. The operator indicates the 
mathematical relationship between the code 
Placed in the JOB statement and the codes 
issued by completed job steps. If the 
relationship is true, the job is ter- 
Minated. The six operators and their mean- 
ings are: 





Operator Meaning 

GT greater than 

GE greater than or equal to 
EQ equal to 

NE not equal to 

LT less than 

LE less than or equal to 


For example, if a code 8 is returned by 
the compiler and the JOB statement 
contains: 


COND= (7, LT) 
the job is terminated. 


If more than one condition is indicated 
in the COND parameter and any condition is 
satisfied, the job is terminated. 


For the FORT step of both the FORTGCLG 
and FORTHCLG cataloged procedures, the com- 
pilers issue one of the following error 
codes: 


Q - No errors or warnings detected. 


4 - Possible errors (warnings) detected, 
execution should be successful. 


8 - Errors detected, execution may fail. 
Compilation continues but the lin- 
kage editor job step is not executed 
unless the programmer has increased 
the error code acceptable to the 
linkage editor. (The discussion 
"Condition for Bypassing a Job Step" 
later in this section describes the 
method for specifying the acceptable 
error code. ) 


aa 1 
| 


utente 4 If the LOAD option has 
been specified, an object module 
will be supplied. 


ove wnat 1 
| 

------ 4 If the error is found in 
an executable statement, the state- 
ment is replaced by a call to the 
IBERH routine (IHCIBERH). If the 
resulting load module is executed, 
IBERH is called and execution is 
terminated. 


iene ae 1 
| 


ateteaieteatee 4 Severe errors detected, 
execution is impossible. 


16 - Terminal errors detected, compiler 
terminated abnormally. 
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(Used with Priority Schedulers Only) 


Yo assign a priority other than the 
default job priority (as established in the 
input reader procedure), the parameter 
PRTY=nn must be coded in the operand field 
of the JOB statement. The "nn" is to be 
vreplaced with a decimal number from 0 
through 13 (the highest priority that can 
be assigned is 13). 


Whenever possible, avoid using priority 
13. This is used by the system to expedite 
processing of jobs in which certain errors 
were diagnosed. It is also intended for 
other special uses by future features of 
systems with priority schedulers. 

If the PRTY parameter is omitted, the | 
default job priority is assumed. 


Requesting a Message Class_(MSGCLASS) 


(Used with Priority Schedulers Only) 


With a quantity and diversity of data in 
the output stream, an installation may want 
to separate different types of output data 
into different classes. Each class is 
directed to an output writer associated 
with a specific output unit. 


The MSGCLASS=x parameter allows the mes- 
sages issued by the priority scheduler to 
be routed to an output class other than the 
normal message class, A. The "x" is to be 
replaced with an alphabetic or numeric 
character. An output writer, assigned to 
process this class, transfers the data toa 
specific dewice. 


If the MSGCLASS parameter is omitted, 
the job scheduler messages are routed to 
the standard output class, A. 


(systems with MVT Only) 
The REGION parameter is used to specify: 


® The maximum amount of main storage to 
be allocated to the job. This figure 
must include the size of those com- 
ponents that are required by the user's 
program and that are not resident in 
Main storage. 


e The amount of main storage to be allo- 
cated to the job, and in which storage 
hierarchy or hierarchies the space is 
to be allocated. This request should 
be made only if main storage hierarchy 
support is specified during system 
generation. 


To request the maximum amount of main 
storage required by the job, REGION=nnnnnk 
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is coded in the operand field of the JOB 
statement. The term nnnnn is replaced with 
the number of contiguous 1024-byte areas to 
be allocated to the job, e.g., REGION=52K. 
This number can range from one to five 
digits, but cannot exceed 16383. It should 
be specified as an even number. (If an odd 
number is specified, the system treats it 
as the next highest even number.) 


If the REGION parameter is omitted or if 
a region size smaller than the default 
region size is requested, the default value 
(as established in the input reader proce- 
dure) is assumed. 


Note: If different region sizes are to be 
specified for each step in the job code, 
the REGION parameter must be specified in 
the EXEC statement associated with each 
step, as described in the section "EXEC 
Statement." 


Main storage hierarchy support provides 
for storage hierarchies 0 and 1. If IBM 
2361 Core Storage, Model 1 or 2, is present 
in the system, processor storage is 
referred to as hierarchy 0 and 2361 Core 
Storage is referred to as hierarchy 1. If 
2361 Core Storage is not present but main 
storage hierarchy support was specified 
during system generation, a 2-part region 
is established in processor storage when a 
region is defined to exist in two hierar- 
chies. The two parts are not necessarily 
contiguous. 


When main storage hierarchy support is 
included in the system, the REGION parame- 
ter can be used to request both the maximum 
amount of storage to be allocated to the 
job and the hierarchy or hierarchies in 
which the storage is to be allocated. 


To specify a region size and the hierar- 
chy desired, REGION=(value K,value,K) is 
coded in the operand field of the JOB 
statement. The term “value " is replaced 
with the number of contiguous 1024-byte 
areas to be allocated to the job in hierar- 
chy 0; the term "value," is replaced with 
the number of contiguous 1024-byte areas to 
be allocated in hierarchy 1, ¢€.g., REGION= 
(60K, 200K). When processor storage 
includes hierarchies 0 and 1, the combined 
values of value and value, cannot exceed 
16383. If 2361 Core Storage is present, 
value cannot exceed 16383, and value, can- 
not exceed 1024, if using a single Model 1, 
or 2048, if using a single Model 2. Each 
value specified should be an even number. 
(If an odd number is specified, the system 
treats it as the next highest even number.) 


In systems with main storage hierarchy 
support, either subparameter can be omitted 
to request storage in only one hierarchy. 


If storage is requested only in hierarchy 
1, a comma must be coded to indicate the 
absence of the first subparameter, e€.g., 
REGION=(,52K). If storage is requested 
only in hierarchy 0, the parentheses need 
not be coded, C«ge, REGION=70K,. 


If the REGION parameter is omitted, or 
if a region size smaller than the default 
region size is requested, the default value 
(as established in the input reader proce- 
dure) is assumed. When the default region 
Size is assumed, storage is always alio- 
cated in hierarchy 0. 


Notes: 


e If different region sizes are to be 
specified for each step in the job, 
code the REGION parameter in the EXEC 
statement associated with each step, as 
described in the section "EXEC 
Statement." 


e If main storage hierarchy support is 
not included and regions are requested 
in both hierarchies, the region sizes 
are combined and an attempt is made to 
allocate a single region from processor 
storage. If a region is requested 
entirely from hierarchy i, an attempt 
is made to allocate the region from 
processor storage. 


« For information on storage requirements 
to be considered when specifying a 


region size, see the Storage Estimates 
publication. 


Setting a Job Time Limit (TIME) 


(Used by Priority Schedulers Only) 


To limit the computing time used by a 
single job, a maximum time for its comple- 


tion can be assigned. Such an assignment 
is useful in a multiprogramming environment 
where more than one job has access to the 
computing system. 


The time is coded in minutes and 
seconds. The number of minutes cannot 
exceed 1439. The number of seconds cannot 
exceed 59. If the job is not completed in 
the assigned time, it is terminated. If 
the job execution time is expected to 
exceed 1439 minutes (24 hours), TIME=1440 
can be coded to eliminate job timing. If 
the TIME parameter is omitted, the default 
job time limit (as established in the cata- 
loged procedure for the reader/interpreter) 
is assumed. 


The EXEC statement (Figure 5) indicates 
the beginning of a job step and describes 
that job step. The statement can contain 
the following information: 


1. Name of job step or procedure step. 


2. Name of the cataloged procedure or 
load module «» be executed. 


3. Compiler and/or linkage editor options 
passed to the ‘job step. 


4. Accounting information relative to 
this job step. 


5. Conditions for bypassing the execution 
of this job step. 


6. A time limit for the job step or an 
entire cataloged procedure. 


7. Specification of main storage require- 


ments for a job step or an entire 
cataloged procedure. 
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Operand 


Positional Parameter 
PROC=cataloged-procedure-name 
cataloged-procedure-name | 
’ PGM=program-name 
| Pcm=*. stepname. ddname 
| PGM=*. Stepname. procstep. ddname 





Keyword Parameters 
JPARM 1 
WARM: pEbeseepsy tepkient Satldniyas)s Read 


JACCT 1 
incor precetens/ = (acediieingsingoemationy? baad 


[, (code, operator [ stepnamel. procstep]1)]...8)9]) 
eae \ 10 44 
(TIME. procstep?{ = (minutes, seconds) 


{COND \ 
| 1eonb-procsteps! =((code, operator stepnamel[. peecstenny) 
| REGION. procstep?j{ = 


REGION 
{ =(/nnnnnkK {,value,K]); 19 12 
valueoKk 





| {DPRTY 


pam eH HF 
— 


11f information from this control statement is referred to in a later job step, 
"stepname" is required. 

2If this format is selected, it may be repeated in the EXEC statement, once for each 
step in the cataloged procedure. 

3If£ the information specified contains blanks, parentheses, or equal signs, either 
the keyword subparameter must be enclosed by apostrophes or the entire PARM field 
must be delimited by apostrophes instead of parentheses. 

“Tf only one option is specified and it does not contain any blanks, parentheses, or 
equal signs, the delimiting parentheses may be omitted. 

*The maximum number of characters allowed between delimiting parentheses is 100. If 
the option list is enclosed in apostrophes, however, the parameter must be coded on 
one card. 

6If “accounting-information" does not contain commas, blanks, parentheses, or equal 
signs, the delimiting parentheses may be omitted. 

7The maximum number of characters allowed between the delimiting apostrophes or 
parentheses is 142, 

®8The maximum number of repetitions allowed is 7. 

9If only one test is specified, the outer pair of parentheses may be omitted. 


10This parameter is used with priority schedulers only. Sequential schedulers ignore 


it. 


[241If only minutes are given, the parentheses need not be used. If only seconds are 


{1 
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given, the parentheses must be used and a comma must precede the seconds. 

2If only value,K is given, the parentheses need not be used. If only value,k is 
given, the parentheses must be used and a comma must precede value,k. 

3If only value 1 is given, the parentheses need not be used. If only value 2 is 
given, the parentheses must be need and a comma must precede value 2. 


| 
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e Figure 


Example 1 of Figure 6 shows EXEC state- 
ments used to execute programs. The pro- 
gram names used are the (G) and (H) compil- 
er names. Example 2 in Figure 6 shows, for 
each compiler, an EXEC statement used to 
execute a cataloged procedure. 


NAME FIELD 


The “stepname™ is the name of the job 
step or procedure step. It is required 
when information from this job step is 
referred to in a later job step. No two 
steps in the same job should have the same 
“stepname,.”" 


OPERAND FIELD 


Positional Parameter 


The first parameter of an EXEC statement 
must specify either the name of the cata- 
loged procedure or program to be executed. 
Each program (load module) to be executed 
must be a member of a library (PDS). The 
library can be the system library 
(SYS1,LINKLIB), a private library, or a 


temporary library created to store a pro- 
gram from a previous job step of the same 
job. 


Specifying a Cataloged Procedure: 


PROC=cataloged-procedure-name 
cataloged-procedure~name 
indicate that a cataloged procedure is 
invoked. The "cataloged procedure- 
name" is the name of the cataloged 
procedure. For example, 


// EXEC PROC=FORTHC 
or 
// EXEC FORTHC 


(H) cat- 
be 


indicates that the FORTRAN IV 
aloged procedure FORTHC is to 
executed. 


Specifying a Program in a Library: 


PGM=program=-name 
indicates that a program is executed. 
The “program name" is the member name 
of a load module in the system library 
(SYS1.LINKLIB) or private library. 
For example, 


// EXEC PGM=IEWL 


indicates that the load module IEWL is 
executed. (A load module in a private 
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library is executed by concatenating 
that private library with the system 
library through the use of a JOBLIB DD 
statement. See the discussion con- 
cerning JOBLIB under "Data Definition 
(DD) Statement" in this section. ) 


Specifying a Program Described in a Pre- 
vious Job Step: 


PGM=*, stepname. ddname 
indicates that the name of the program 
to be executed is taken from a DD 
statement of a previous job step. 
* indicates the current job; “step- 
name" is the name of a previous step 
within the current job; and "ddname" 
is the name of a DD statement within 
that previous job step. (The “step- 
name" cannot refer to a job step in 
another job.) The program referred to 
must be a member of a PDS. For 
example, in the following statements, 
statement STEP5 indicates that the 
name Of the program is taken from the 
DD statement SYSLMOD in job step 
STEP4. Consequently, the load module 
ARCTAN in the PDS MATH is executed. 


The 


//MCLX JOB , JOHNSMITH, COND= (7, LT) 


//STEP4 EXEC PGM=IEWL 
//SYSLMOD DD DSNAME=MATH(ARCTAN) 


//STEP5 EXEC PGM=*.STEP4.SYSLMOD 


Specifying a Program Described in a Cata- 
loged Procedure: 


PGM=*,. stepname. procstep. ddname 
indicates that the name of the program 
to be executed is taken from a DD 
statement of a previously executed 
step of a cataloged procedure. ‘The * 
indicates the current job; “stepname" 
is the name of the job step that 
invoked the cataloged procedure; 
“procstep" is the name of a step 
within the procedure; "ddname" is the 
name of a DD statement within the pro- 
cedure step. (The “stepname" cannot 
refer to a job step in another job.) 
For example, consider a cataloged pro- 
cedure FORT, 
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//COMPIL EXEC PGM=IEKAA0O 
7/SYSPUNCH DD UNIT=SYSCP 
//SYSPRINT DD SYSOUT=A 


//SYSLIN DD 


DSNAME=LINKINP 


EXEC PGM=IEWL 
DSNAME=RESULT (ANS) 


//ULKED 
//SYSLMOD DD 


Furthermore, assume the following 
statements are placed in the input 
stream. 

//XUIV JOB ,SMITH, COND=(7, LT) 
4/81 EXEC PROC=FORT 

4/82 EXEC PGM=*.S1.LKED. SYSLMOD 


//FTO3F001 DD 
//¥TO1F001 DD 


UNIT=PRINTER 
UNIT=INPUT 


Statement S2 indicates that the name 
of the program is taken from the DD 
statement SYSLMOD. The statement is 
located in the procedure step LKED of 
the cataloged procedure FORT, which 
was invoked by statement S51. Conse- 
quently, the load module ANS in the 
PDS RESULT is executed. 


Keyword Parameters 


The keyword parameters may refer toa 
program, to an entire cataloged procedure, 
or to a step within a cataloged procedure. 


Options for the Compiler and Linkage 
Editor: 


The PARM parameter is used to pass 
options to the compiler or linkage editor. 
(PARM has no meaning to a FORTRAN load 
module. ) 


PARM 
passes options to the compiler or 
linkage editor, when either is invoked 
by the PGM parameter in an EXEC state-. 
ment, or to the first step in a cata- 
loged procedure. 


PARM. procstep 
passes options to a compiler or link- 
age editor step within the named cata- 
loged procedure step. 


The formats for compiler options and 
those linkage editor options most appli- 
cable to the FORTRAN programmer are shown 
in Figure 7. 
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Note: If a subparameter expression in the COND 

list of the PARM parameter contains special states conditions for bypassing the 
characters, either of two methods may be execution of a program or an entire 
used to delimit the expression: cataloged procedure. 


1. Enclose the entire subparameter list 


in apostrophes. For example: COND. procstep 
states conditions for bypassing the 
PARM = ‘LIST, MAP, NAME=MYMAIN, DECK’ execution of a specific cataloged pro- 


cedure step “procstep". 
2. Enclose the subparameter expression in 
apostrophes and the entire subparamet- 


er list in parentheses. Thus, the The subparameters for the COND parameter 
above example can be coded as: are of the form: 
PARM = (LIST, MAP, *NAME=MYMAIN‘, DECK) (code, operator([,stepname]) 
Since a list enclosed in apostrophes cannot 
be continued onto another control state- The subparameters "code" and “operator" 
ment, the second method should be used when are the same as the code and operator 
the PARM parameter must be interrupted. described for the COND parameter in the JOB 


statement. The subparameter “stepname" 
Detailed information concerning compiler identifies the previous job step that 
and linkage editor options is given in the issued the code. For example, the COND 
section "FORTRAN Job Processing." parameter 


COND=((5, LT, FORT), (5, LT, LEED) ) 








[+The subparameters (options) are keyword subparameters. 

|2If any keyword subparameter contains blanks, parentheses, or equal signs, either the 
| keyword subparameter must be enclosed by apostrophes or the entire PARM field must be 
[ delimited by apostrophes instead of parentheses. 


This COND parameter (unlike the one in indicates that the step in which the COND 
the JOB statement) determines if the job parameter appears is bypassed if 5 is less 
step defined by the EXEC statement is than the code returned by either of the 
bypassed. steps FORT or LKED. 

a 't 
[Compiler Options: FORTRAN IV (G) and FORTRAN Iv (4) { 
| 
| eee \ eae \ SOURCE \ | 
| PARM. procstep) = NOLIST) {(, NAME=xxxxxx] {, LINECNT=xx] » NOSOURCE j 
| | 
| , DECK , MAP \ , LOAD \ eee ine \ ta 2 { 
I «NODECK) t,NOMAP NOLOAD, e EBCDIC , NOID} 1 
| j 
[Compiler Options: FORTRAN IV (H) only i 
| \ 
| oe ,EDIT jaar '1 2 
|| \PARM.procstepf = * (opr={0}1] 21, SIZE=nnnnk] ;NOEDIT , NOXREF \ 
| ! 
{Linkage Editor: i 
| | 
| eee MAP i 
| PARM.procstepf = (|XREF}| [,LET] [(,NCAL] [,LIST] )2 
| | 
| Loader: | 
| i 
I ee \ cor \ { CALt \ , LET + SEZE=100K | 
l PARM.procstep/ = ( (| NOMAP »NOCALL sNOLET ,SLZE=size 
| | 
| (,EP=name] {PRINT \ ( 
NOPRINT} ) i 
a a a a ee a a a ee ne ae ee ee a A A a a cn a ea 4 
i 
| 
| 
{ 


° peer 7. Compiler, Linkage Editor, and Loader Options 
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££ a step in a cataloged procedure 
issued the code, “stepname" must qualify 
the name of the procedure step; that is, 


(code, operator[,stepname. procstep]) 


tf “stepname"™ is not given, "code" is 
compared with all codes issued by previous 
job steps. 


The ACCT parameter specifies accounting 
information for a job step within a Job. 


ACCT 
is used to pass accounting information 
to the installation accounting rou-~ 
tines for this job step. 


ACCT. procstep 
is used to pass accounting information 
for a step within a cataloged 
procedure. 


Lt both the JOB and EXEC statements con- 
tain accounting information, the installa- 
tion accounting routines decide how the 
accounting information shall be used for 
the job step. 


Setting Job Step Time Limits (TIME): 


(Used with MVT Priority Schedulers Only) 


yo limit the computing time used by a 
Single job step or cataloged procedure, a 
maximum time for its completion can be 
assigned. If the job step is not completed 
in this time, the entire job is terminated. 
Assignment of such a time limit is particu- 
larly useful in a multiprogramming environ- 
ment where more than one job has access to 
the computing system. 


The time is coded in minutes and 
seconds. The number of minutes cannot 
exceed 1439 (24 hours); the number of 
seconds cannot exceed 59. (If the job step 
execution time is expected to exceed 1439 
minutes, TIME=1440 can be coded to elimi- 
nate job step timing.) 


Lf the TIME parameter is omitted, the 
default job step time limit (as established 
in the cataloged procedure for the input 
reader) is assumed, 


TIME 
is used to assign a time limit fora 
job step or for an entire cataloged 
procedure. For a cataloged procedure, 
this parameter overrides all TIME 
parameters that may have been speci- 
fied in the procedure. 


TIME.procstep 


is used to assign a time limit for a 
single step of a cataloged procedure. 
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This parameter overrides, for the 
named step, any TIME parameter which 
is present. One parameter of this 
form can be written for each step in 
the procedure. 


Specifying Main Storage Requirements for a 


Job Step (REGION) 
(Systems with MVT Only) 


The REGION parameter is used to specify: 


e The maximum amount of main storage to 
be allocated to the job step. This 
figure must include the size of those 
components that are required by the 
user's program and that are not resi- 
dent in main storage. 


e¢ The amount of main storage to be allo- 
cated to the job, step and in which 
storage hierarchy or hierarchies the 
space is to be allocated. This request 
should be made only if main storage 
hierarchy support is specified during 
system generation. 


To request the maximum amount of main 
storage required by the job step, REGION= 
nnnnnkK is coded in the operand field of the 
JOB statement. The term nnnnn is replaced 
with the number of contiguous 1024-byte 
areas to be allocated to the job, e.g., 
REGION=52K. This number can range from one 
to five digits, but cannot exceed 16383. 

It should be specified as an even number. 
(If an odd number is specified, the system 
treats it as the next highest even number.) 


If the REGION parameter is omitted or if 
a region size smaller than the default 
region size is requested, the default value 
{as established in the input reader proce- 
dure) is assumed. 


Notes: 


® If the REGION parameter has been speci- 
fied on the JOB statement, REGION para- 
meters on the job's EXEC statements are 
ignored. 


* When the job step uses a cataloged pro- 
cedure, a region size can be requested 
for a single procedure step by includ- 
ing, as part of the REGION parameter, 
the procedure step name, i.ee, REGION. 
procstep. This specification overrides 
the REGION parameter in the named pro- 
cedure step, if one is present. As 
Many parameters of this form can be 
coded as there are steps in the cata- 
loged procedure. 


* To request a single region size for an 
entire cataloged procedure, code the 
REGION parameter without a procedure 


step name. This specification over- 
rides all REGION parameters in the pro- 
cedure, if any are present. 


Main storage hierarchy support provides 
for storage hierarchies 0 and 1. If IBM 
2361 Core Storage, Model 1 or 2, is present 
in the system, processor storage is 
referred to as hierarchy 0 and 2361 Core 
Storage is referred to as hierarchy 1. If 
2361 Core Storage is not present but main 
storage hierarchy support was specified 
during system generation, a 2-part region 
is established in processor storage when a 
region is defined to exist in two hierar- 
chies. The two parts are not necessarily 
contiguous. 


When main storage hierarchy support is 
included in the system, the REGION paramet- 
er can be used to request both the maximum 
amount of storage to be allocated to the 
job step and the hierarchy or hierarchies 
in which the storage is to be allocated. 


To specify a region size and the hierar- 
chy desired, REGION=(value kK, value,K) is 
coded in the operand field of the JOB 
statement. The term “value " is replaced 
with the number of contiguous 1024-byte 
areas to be allocated to the job step in 
hierarchy 0; the term “value," is replaced 
with the number of contiguous 1024-byte 
areas to be allocated in hierarchy 1, e.g., 
REGION= (60K,200K). When processor storage 
includes hierarchies 0 and 1, the combined 
values of value and value, cannot exceed 
16383. If 2361 Core Storage is present, 
value cannot exceed 16383, and value, can- 
not exceed 1024, if using a single Model i, 
or 2048, if using a single Model 2. Each 
value specified should be an even number. 
(If an odd number is specified, the system 
treats it as the next highest even number. ) 


In systems with main storage hierarchy 
support, either subparameter can be omitted 
to request storage in only one hierarchy. 
If storage is requested only in hierarchy 
1, a comma must be coded to indicate the 
absence of the first subparameter, €.g., 
REGION=(,52K). If storage is requested 
only in hierarchy 0, the parentheses need 
not be coded, e.g., REGION=70K. 


If the REGION parameter is omitted, or 
if a region size smaller than the default 
region size is requested, the default value 
(as established in the input reader proce- 
dure) is assumed. When the default region 
size is assumed, storage is always allo- 
cated in hierarchy 0. 


Notes: 


® If the REGION parameter has been speci- 
fied on the JOB statement, REGION para- 


meters on the job's EXEC statements are 
ignored. 


® If main storage hierarchy support is 
not included and regions are requested 
in both hierarchies, the region sizes 
are combined and an attempt is made to 
allocate a single region from processor 
storage. If a region is requested 
entirely from hierarchy 1, an attempt 
is made to allocate the region from 
processor storage. 


® When the job step uses a cataloged pro- 
cedure, a region size can be requested 
for a single procedure step by includ- 
ing, as part of the REGION parameter, 
the procedure step name, i.e., REGION. 
procstep. This specification overrides 
the REGION parameter in the named pro- 
cedure step, if one is present. As 
Many parameters of this form can be 
coded as there are steps in the cata- 
loged procedure. 


e To request a single region size for an 
entire cataloged procedure, code the 
REGION parameter without a procedure 
step name. This specification over- 
rides all REGION parameters in the pro- 
cedure, if any are present. 


e For information on storage requirements 
to be considered when specifying a 
region size, see the Storage Estimates 
publication. 


Establishing a Dispatching Priority 
(DPRTY) 
(Systems with MVT only) 


The DPRTY parameter specifies the dis- 
patching priority of a job step’s tasks. 
The dispatching priority determines the 
order in which a job step's tasks will use 
main storage and CPU resources. Unless the 
DPRTY parameter is coded, each job step is 
assigned the same dispatching priority as 
the job. 


To assign a dispatching priority to a 
job step, the keyword parameter: 


DPRTY = (value 1, value 2) 


is coded in the operand field of the EXEC 
statement. The terms value 1 and value 2 
may each be assigned a number from 0 
through 15. The higher the number, the 
higher the dispatching priority will be. 
(Whenever possible, assigning a number of 
15 to value 1 should be avoided since this 
number is used for certain system tasks.) 
The number assigned to value 1 is converted 
by the system to determine an internal 
priority. The number assigned to value 2 
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is added to the internal priority to form 
the dispatching priority. If a number is 
not assigned to value 1, a default value of 
zero is assumed; for value 2 a default 
value of 11 is assumed. 


DPRTY 
is used to assign a dispatching 
priority for a job step or for an 
entire cataloged procedure. For a 
cataloged procedure, this specifica- 
tion overrides all DPRTY parameters 
that may have been specified in the 
procedure. 


DPRTY. procstep 
is used to assign a dispatching 
priority to a single procedure step in 
a cataloged procedure. This parameter 
overrides, for the named step, any 
DPRTY parameter which is present. One 
parameter of this form can be written 
for each step in the cataloged 
procedure. 


Note: A detailed discussion of dispatching 
priorities can be found in the Concepts and 


Facilities publication listed in the 
Preface. 


DATA DEFINITION (Dp) STATEMENT 


The DD statement (Figure 8) describes 
data sets. The DD statement can contain 
the following information: 


1. Name of the data set to be processed. 
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Type and number of I/O devices for the 
data set. 


3. Volume(s) on which the data set 
resides. 

4. Amount and type of space allocated on 
a direct access volume. 

5. Label information for the data set. 

6. Disposition of the data set after 
execution of the job step. 

7. Allocation of data sets with regard to 
channel optimization. 

8. Whether a particular data set may be 
used only for input or only for 
out put. 

NAME FIELD 

ddname 


is used: 


1. To identify data sets defined by 
this DD statement to the compiler 
or linkage editor. 


2. To relate data sets defined by 
this DD statement to data set 
reference numbers used by the pro- 
grammer in his source module. 


3. To identify this DD statement to 
other control statements in the 
input stream. 


T 
Operation |Operand* 
poe eee ae ee eee a ee ee ee es oe ee 
[Positional Parameter 
| 
DD |] * * 
|| DUMMY 
]| DATA 


i 
{ 
\ 
\ 
| 
\ 
! 
i 
\ 
| 
{ 
| 
| 
' 
| 
| 
+~—4 


ddname 2 
//\procstep. ddname 

JOBLIB? 

STEPLIB 

SYSABEND 

. SYSUDUMP Keyword Parameters® 6 


DDNAME=ddname 


dsname 
dsname (element) 
*, ddname 
eos *.stepname.ddname 
DSN *, stepname. procstep. ddname 
&name 
éname (element) 


(UNIT=(subparameter-list)] 
([DCB=(subparameter-list)] 


VOLUME 
=(subparameter-list) 
VOL 


SPACE=(subparameter-list) 
SPLIT= (subparameter-list) 
SUBALLOC= (subparameter-list) 


({LABEL=(subparameter-list) ] 


DISP=(subparameter-list) 

SYSOUT=A 

SYSOUT=B 

SYSOUT= (x[, program-name] [,form-number])7 8 


pa a Se as Se a a a 


|*A DD statement with a blank operand field can be used to override parameters speci- 

| fied in cataloged procedures. (See "Overriding and Adding DD Statements" in the sec- 
{| tion “Cataloged Procedures". ) 

|#The name field is blank when concatenating data sets. (Note the exception for the 

| use of JOBLIB.) 

|The JOBLIB statement precedes any EXEC statements in the job. (See the discussion 

| concerning JOBLIB under "Name Field" in this section.) 

|*If either the * or DATA the positional parameter is specified, no keyword parameters 

| other than DCB=BLKSIZE and DCB=BUFNO can be specified. 

|SI£ “subparameter-list" consists of only one subparameter and no leading comma (indi- 
| cating the omission of a positional subparameter) is required, the delimiting paren- 

| theses may be omitted. 

|SIf “subparameter-list" is omitted, the entire parameter must be omitted. 

|7This form of the parameter is used only with priority schedulers. 

|®If “program-name"™ and “form-number" are omitted, the delimiting parentheses can be 

| omitted. If only the form number is given, the parentheses must be used and two com- 
| mas must precede the form number. 


Figure 8. Data Definition Statement 
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The “ddname* format is given in “FORTRAN 
Job Processing." 


procstep. ddname 
is used to override DD statements in 
cataloged procedures. The step in the 
cataloged procedure is identified by 
“procstep”. The “ddname" identifies 
either: 


1. A DD statement in the cataloged 
procedure that is to be modified 
by the DD statement in the input 
stream, or 


2. A DD statement that is to be added 
to the DD statements in the proce- 
dure step. 


JOBLIB and STEPLIB 
are used to concatenate a private 
Library with the system library, SYS1. 
LINKLIB; that is, the operating system 
library and the data sets specified in 
the JOBLIB or STEPLIB DD statement are 
temporarily combined to form one 
library. Use of JOBLIB results in 
concatenation for the duration of a 
job; use of STEPLIB, for the duration 
of a job step. 


The JOBLIB DD statement must appear 
immediately after the JOB statement of 
the job to which it pertains, and its 
operand field, at a minimum, must con- 
tain the DSNAME and DISP parameters. 
the DISP parameter must be coded eith- 
er DISP=(NEW, PASS) or DISP=(OLD, PASS) 
or DISP=(SHR,PASS) so that the library 
remains available throughout the job. 
(See the discussion of the DISP param- 
eter under "Operand Field." 


The STEPLIB DD statement may appear in 
any position among the DD statements 
for the step. The data set defined 
should be OLD. If the private library 
is not cataloged and is to be referred 
to ina later step (or steps), 
DISP=(OLD, PASS) or DISP=(SHR, PASS) 
should be coded; a later step may then 
refer to it by coding 
DSNAME=*.stepname.STEPLIB, DISP=(OLD, 
PASS) on the STEPLIB DD statement for 
the later step. 


For additional information on the use 
of JOBLIB and STEPLIB DD statements, 


see the Job Control Language Reference 
publication, Form GC28-6704. 


SYSABEND and SYSUDUMP 
are special DD names used to define a 
data set on which a system abnormal 
termination dump can be written. The 
dump is provided for job steps subject 
to abnormal termination. 
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The dump provided when the SYSABEND DD 
statement is used includes the system 
nucleus, the problem program storage 
area, and a trace table, if the trace 
table option was requested at system 
generation. The SYSUDUMP DD statement 
provides a dump of only the problem 
program area. 


A full discussion of SYSABEND and SYS- 
UDUMP DD statements, with an example 
of use, appears in the Job Control 
Language Reference publication, Form 
GC28-6704, 


BLANK NAME FIELD 


If the name field is blank, the data set 
defined by the DD statement is concatenated 
with the data set defined in the preceding 
DD statement. In effect, these two data 
sets are combined into one data set. 
(Private libraries, i.e., partitioned data 
sets, may also be concatenated with the li- 
brary specified in the JOBLIB DD statement. 
Therefore, several libraries can be concat- 
enated with the system library. Individual 
members of a partitioned data set, however, 
cannot be concatenated.) 


Note: Handling of data sets whose records 
are of different lengths and/or different 
formats is a function of the program being 
executed. Data sets designated for conca- 
tenation may not be in the input stream. 


OPERAND FIELD 


For purposes of discussion, parameters 
for the DD statement have been divided into 
seven functions. Parameters are used to: 

e Specify data in the input stream. 

® Specify unit record data sets. 

e Retrieve a previously created and cata- 
loged data set. 


® Retrieve a data set created in a pre- 
vious job step in the current job and 
passed to the current job step. 


e Retrieve a data set created but not 
cataloged in a previous job. 


® Create data sets that reside on magnet- 
ic tape or direct access volumes. 


* Optimize I/O operations. 


The following text describes the DD 
statement parameters that apply to: 


e Processing unit record data sets. 


e Retrieving data sets created in pre- 
vious job steps. 


e Retrieving data sets created and cata- 
loged in previous jobs. 

See Figure 9 for applicable parameters. 
Parameters shown in Figure 8 and not 
mentioned in this section are used to cre- 
ate data sets and optimize I/O operations 
in job steps. These parameters are dis- 
cussed in the sections "Creating Data Sets" 
and “Programming Considerations." 


Specifying Data_in the Input Stream: 


* 
indicates that a data set (e.g., a 
source module or data) immediately 
follows this DD statement in the input 
stream (see Figure 10). If the EXEC 
statement for the job step invokes a 
cataloged procedure, a data set may be 
Placed in the input stream for each 
procedure step. If the EXEC statement 
specifies execution of a program, only 
one data set may be placed in the 
input stream. The DD * statement must 
be the last DD statement for the pro- 
cedure step or program. The end of 
the data set must be indicated by a 
delimiter statement. The data itself 
cannot contain job control statements 
(neither the comment statement nor any 
statements with // or /* in columns 1 
or 2). Note, too, that if * is speci- 
fied, no keyword parameters other than 
DCB=BLKSIZE or DCB=BUFNO may be 
specified. 


DATA 
also indicates data in the input 
stream. The restrictions and use of 
the DATA parameter are the same as the 
* parameter, except that // may appear 
in the first and second positions of a 
record. 


Parameter: 


UNIT=(name(, {n|P}]) 
specifies the name and number of I/0 
devices for a data set (see Figure 
10). When the system is generated, 
the "name" is assigned by the operat-— 
ing system or the installation and 
represents a device address, a device 
type, or a device class. (See the 
System Generation publication.) The 
programmer can use only the assigned 


{bara} 
DATAS 
dsname 
dsname(element) 
*.ddname 
DSNAME|= ( *.stepname. ddname 
DSN *, stepname. procstep. ddname 


éname 
&name (element) 


UNIT=(name[, {n|P}?}) 3 


DCB=( {MODE=E} {+ STACK=1 | ) 
MODE=C) |, STACK=2 


SYSOUT=A 

SYSOUT=B 

SYSOUT=(x[, program-name] 
(,form-number])“% §& 


SHR )[, DELETES , DELETE 
OLD (| , KEEP , KEEP 
DISP=( )NEW (| , PASS ,CATLG )7 
MOD }| , CATLG UNCATLG 
UNCATLG 


LABEL=(subparameter-list) 8 


{ VOLUME) 
\ =(subparameter-list) 8 


OE ES SE DS ES SS SD ge ES eee a oe es eee aoe ol 


von 
{1If * is specified, no keyword parameters 
| other than DCB=BLKSIZE or DCB=BUFNO may 
{| be specified. 

|?If neither "n"” nor "P" is specified, 1 

{ is assumed. 

|2If only “name" is specified, the deli- 

| miting parentheses may be omitted. 
{*This form of the parameter is used only 
{| with priority schedulers. 

|SIf “program-name"“ and “form-number“™ are 
| omitted, the delimiting parentheses can 
| be omitted. 

|®The assumption for the second subpara- 

| meter is discussed in "Specifying the 

| Disposition of a Data Set" in this 

| section, 

|7The subparameters are positional. 

[8See the section “Creating Data Sets." 

lecee ote ese ee 


DD Statement 
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names in his DD statements. For 


example, 
UNIT=190, UNIT=2311, UNIT=TAPE 
where 190 is a device address, 2311 is 
a device type, and TAPE is a device 
class. 

n|P 


specifies the number of devices allo- 
cated to the data set. If a number 
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"n" is specified, the operating system 
assigns that number of devices to the 

data set. "P" is used with cataloged 

data sets when the required number of 

volumes is unknown. The control pro- 

gram assigns a device for each volume 

required by the data set. 


Sample Coding Form 
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Figure 10. Examples of DD Statements for 


Unit Record Devices 


DCB Parameter: 


MODE=E\ f, STACK=1 
DCB=(\MODE=C} |, STACK=2 ) 


specify options for the card read 
punch. The MODE subparameter indi- 
cates whether the card is transmitted 
in column binary or EBCDIC mode; C 
specifies column binary, and E speci- 
fies EBCDIC. 


The STACK subparameter indicates 
stacker selection for the card read 
punch. 





CsveOUET: With the SYSOUT parameter, out- 
put data sets can be routed to a system 
output stream and handled much the same as 
system messages. 


SYSOUT=A 
can be used with sequential schedulers 
to indicate that the data set is to be 
written on the system output device. 
No parameter other than the DCB param- 
eter has any meaning when SYSOUT=A is 


used. This form of the SYSOUT param- 
eter may be specified for printer data 
sets. 

SYSOUT=B 


can be used with sequential schedulers 
to indicate the system card punch 
unit. The priority scheduler routes 
the output data set to class B. 
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SYSOUT= (x[, program-name] [, form-number]) 
is used with priority schedulers. 
When priority schedulers are used, a 
data set is normally written on an 
intermediate direct access device dur- 
ing program execution and later routed 
through an output stream to a system 
output device. The "x" is to be 
replaced by an alphabetic or numeric 
character that specifies the system 
output class to be used. Output writ- 
ers route data from the output classes 
to system output devices. The DD 
statement for this data set can also 
include a unit specification that 
describes the intermediate direct 
access device and an estimate of the 
space required. If these parameters 
are omitted, the job scheduler pro- 
vides default values as the job is 
read and processed. 


If there is a special installation 
program to handle output operations, 
its "program-name" should be speci- 
fied. “Program-name" is the member 
name of the program, which must reside 
in the system library. 


If the output data set is to be 
printed or punched on a specific type 
of output form, a 4-digit “form- 
number" should be specified. This 
form number is used to instruct the 
operator, in a message issued at the 
time the data set is to be printed, of 
the form to be used. 


Retrieving Previously Created Data Sets 


If a data set is created with standard 
labels and cataloged in a previous job, all 
information for the data set, such as rec- 
ord format, density, volume sequence num- 
ber, device type, etc., is stored in the 
catalog and labels. This information need 
not be repeated in the DD statement used to 
retrieve the data set; only the name 
(DSNAME) and disposition (DISP) is 
required. 


If a data set was created in a previous 
job step in the current job and its dispo- 
sition was specified as PASS, all the 
information in the previous DD statement is 
available to the control program, and is 
accessible by referring to the previous DD 
statement by name. To retrieve the data 
set, a pointer to a data set created ina 
previous job step is specified by the 
DSNAME parameter. The disposition (DISP) 
of the data set is also specified, along 
with the UNIT parameter if more than one 
unit is to be allocated. 


If a data set is created with standard 
labels in a previous job but not cataloged, 
information for the data set, such as rec- 
ord format, density, volume sequence num- 
ber, etc., is stored in the labels; the 
device type information is not stored. To 
retrieve the data set, the name (DSNAME), 
disposition (DISP), volume serial number 
(VOLUME), and device (UNIT) must be 
specified. 


If a data set is created with no labels 
and cataloged, device type information is 
stored in the catalog. To retrieve the 
data set, the name (DSNAME), disposition 
(DISP), volume serial number (VOLUME), and 
the LABEL and DCB parameters must be 
specified. 


Examples of the use of DD statements to 
retrieve previously created data sets are 
shown in Figure 11. 


IDENTIFYING A CREATED DATA SET: The DSNAME 
parameter indicates the name of a data set 

or refers to a data set defined in the cur- 
rent or a previous job step. 


Specifying a Cataloged Data Set by Name: 


DSNAME=dsname 
the name of the data set is indicated 
by “dsname." If the data set was pre- 
viously created and cataloged, the 
control program uses the catalog to 
find the data set and instructs the 
operator to mount the required 
volumes. 


Sample Coding Form 
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Specifying a_Generation Data Group or PDS: 


DSNAME=dsname (element) 

indicates either a generation data set 
contained in a generation data group, 
or a member of a partitioned data set. 
The name of the generation data group 
or partitioned data set is indicated 
by “dsname"; if "element" is either 0 
or a signed integer, a generation data 
set is indicated. For example, 


DSNAME=FIRING(-2) 


indicates the thirdmost recent member 
of the generation data group FIRING. 
(See the Data Management publication 
for the complete description of 
generation data sets.) If “element” 
is a name, a member of a partitioned 
data set is indicated. 


Note: Members of a partitioned data 
set may be read as input to a FORTRAN 
object program or created as output 
from a FORTRAN object program, but 
only if the member name and either 
LABEL=(,,,IN) or LABEL=(,,,OUT) are 
specified in an associated DD 
statement. 


Referring to a Data Set in the Current Job 
Step: 


DSNAME=*. ddname 
indicates a data set that is defined 
previously in a DD statement in this 
job step. The * indicates the current 
job. The name of the data set is 


copied from the DSNAME parameter in 
the DD statement named “ddname". 
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Step: 


DSNAME=*,. stepname, ddname 
indicates a data set that is defined 
in a DD statement in a previous job 
step in this job. The * indicates the 
current job, and "stepname"™ is the 
name of a previous jcb step. The name 
of the data set is copied from the 
DSNAME parameter in the DD statement 
named “ddname". For example, in the 
following control statements the DD 
statement FTO8F001 in job step 82 
indicates that the data set name 
(TIME) is copied from the DD statement 
FTO9FO01 in ‘job step S1. 


//TAUNCH JOB 

//IJOBLIB DD DSNAME=FIRING, DISP=(OLD, PASS) 
4/81 EXEC PGM=ROCKET 

//®T0LF001 DD DSNAME=RATES (+1), DISP=OLD 
//¥FTO3F001 DD DSNAME=TIME, DISP=(OLD, PASS) 
4/832 EXEC PGM=DISTANCE 

//¥T03F001 DD DSNAME=*.S1. FTO9FOO01, x 
ff DISP=OLD 

//¥ETOSFOOL DD * 





DSNAME=*.,stepname. procstep.ddname 
andicates a data set that is defined 
“mM a cataloged procedure invoked by a 


previous job step in this job. The * 
indicates the current job; "stepname" 
ig the name of a previous job step 
that invoked the cataloged procedure; 
“orocstep" is the name of a step in 
the cataloged procedure. The name of 
the data set is copied from the DSNAME 
carameter in the DD statement named 
*ddname". 


Assigning Names to Temporary Data Sets: 





DSNAME=6name 
assigns a name to a temporary data 
set. The control program assigns the 
data set a unique name which exists 
only until the end of the current job. 
The data set is accessible in subse- 
quent job steps by specifying “&name". 
this option is useful in passing an 
cbject module from a compiler job step 
to a linkage editor job step. 


DSNAME=&name(element) 
assigns a name to a member of a tem- 
porary PDS. The name is assigned in 
the same manner as for the DSNAME= 
&name option. The "&name(element)" 
option is useful in storing load 
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modules that will be executed ina 
later job step in the current job. 


The DISP parameter is specified for both 
previously created data sets and data sets 


being created in this job step. It con- 
tains three subparameters. 
meat , DELETE , DELETE 
NEW | , KEEP KEEP 
DISP= ( ore , PASS , CATLG ) 
MOD ,CATLG , UNCATLG 
, UNCATLG_ 


The first subparameter indicates the 
status of the data set at the beginning of 
or during the job step. 


SHR 
indicates that the data set resides on 
a direct-access volume and is used as 
input to a job whose operations do not 
prevent simultaneous use of the data 
set as input to another job. This 
parameter has meaning only in a multi- 
programming environment for existing 
data sets. If it is omitted in a mul- 
tiprogramming environment, the data 
set is considered unusable by any 
other concurrently operating job. If 
it is coded in other than a multipro- 
gramming environment, the system 
assumes that the disposition of the 
data set is OLD. 


NEW 
indicates that the data set is created 
in this step. NEW is discussed in 
more detail in the section “Creating 
Data Sets." 


OLD 
indicates that the data set was 
created by a previous job or job step. 


MOD 
indicates that the data set was 
created in a previous job or job step, 
and that additional records are to be 
added to it. Before the first input/ 
output operation for the data set 
occurs, the data set is automatically 
positioned after the last record in 
the data set. If MOD is specified and 
no volume information (e.g., volume 
serial number) is available for the 
data set, the system assumes the data 
set does not yet exist and creates the 
data set for the job step. (Volume 
information is considered available if 
it is coded in the DD statement, 
passed with the data set from a pre- 
vious step, or contained in the 
catalog.) 


The second subparameter indicates the 
disposition of the data set at normal job 
step termination. 


DELETE 
causes the space occupied by the data 
set to be released and made available 
at the end of the current job step. 
If the data set was cataloged, it is 
removed from the catalog. 


KEEP 

insures that the data set is kept 
intact until a DELETE parameter is 
Specified in a subsequent job or job 
step. KEEP is used to retain uncata- 
loged data sets for processing in 
future jobs. KEEP does not imply 
PASS. 


PASS 
indicates that the data set is 
referred to in a later job step. When 
a subsequent reference to the data set 
is made, its PASS status lapses unless 
another PASS is issued. The final 
disposition of the data set should be 
stated in the last job step that uses 
the data set. When a data set is in 
PASS status, the volume(s) on which it 
is mounted is retained. If demounting 
is necessary, the control program 
issues a message to mount the vol- 
ume(s) when needed. PASS is used to 
pass data sets among job steps in the 
same job. 


Tf a data set on an unlabeled tape is 
being passed, the volume serial number 
must be specified in the VOLUME=SER= 
Parameter of the DD statement that 
passed the data set. 


Note: The PASS status of the private 
library specified in a JOBLIB DD statement 
always remains in effect for the duration 
of a job. 


CATLG 
causes the creation of a catalog entry 
that points to the data set. The data 
set can then be referred to in subse- 
quent jobs or job steps by name (CATLG 
implies KEEP). 


UNCATLG 
causes references to the data set to 
be removed from the catalog at the end 
of the job step. 


If the second subparameter is not speci- 
fied, no action is taken to alter the sta- 
tus of the data set. If the data set was 
created in this job, it is deleted at the 
end of the current job step. If the data 
set existed before this job, it exists 
after the end of the job. 


The third subparameter indicates the 
disposition of the data set if the job step 
terminates abnormally. This is the condi- 
tional disposition of the data set. 
Explanations for DELETE, KEEP, CATLG, and 
UNCATLG are the same as those for normal 
termination. 


Notes: 


e If a conditional disposition is not 
specified and the job step abnormally 
terminates, the requested disposition 
(the second subparameter of the DISP 
keyword) is performed. 


e Data sets that were passed but not 
received by subsequent steps because of 
abnormal termination will assume the 
conditional disposition specified the 
last time they were passed. If a con- 
ditional disposition was not specified 
then, all data sets that were new when 
initially passed are deleted. All 
other data sets are kept. 


e A conditional disposition other than 
DELETE for a temporary data set is 
invalid, and the system assumes DELETE. 


Effect of DISP Parameter at End of FORTRAN 
dob: In a FORTRAN job that is terminated 
by a STOP or CALL EXIT statement all data 
sets that were used by the job will be 
closed. The closing operation will posi- 
tion the volume in accordance with the DISP 





parameter, as follows: 

DISP_ Parameter Positioning Action 

PASS Forward space to end 
of data set 

DELETE Rewind 


KEEP, CATLG, UNCATLG Rewind and unload 


DELIMITER STATEMENT 


The delimiter statement (see Figure 12) 
is used to separate data from subsequent 
control statements in the input stream, and 
is placed after each data set in the input 
stream. 


eel es aa ata a aaa 1 
| Name | | 
eer ee eee mee Hoe eS eee Sos 4 
\7* | | 
(ie ee a Se ee 4 
Figure 12. Delimiter Statement 
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The delimiter statement contains a slash 
in column 1, an asterisk in column 2, and a 
blank in column 3. The remainder of the 
card may contain comments. 


The comment statement (see Figure 13) is 
used to enter any information considered 
helpful by the programmer. It can be 
inserted before or after any control state- 
ment that follows the JOB statement. Com- 
ments can be coded in columns 4 through 80. 
The comments cannot be continued onto 
another statement. (If the comment state- 
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ment appears on a system output listing, it 
can be identified by the appearance of *** 
in columns 1 through 3.) 


ee a ey ee 1 
| Name | { 
pA es ee ee 4 
eeu | 
Ui ee a eet a ee 4 
Figure 13. Comment Statement 


The comment statement contains a slash 
in column 1, a slash in column 2, and an 
asterisk in column 3. The rest of the card 
can contain comments, 


To process a FORTRAN source module from 
compilation through execution, three steps 
are required: to compile the source module 
to obtain an object module, to linkage edit 
the object module to obtain a load module,+ 
and to execute the load module. For each 
of these three steps, job control state- 
ments are required to indicate the program 
or procedure to be executed, to specify 
options for the compiler and linkage edi- 
tor, to specify conditions for termination 
of processing, and to define the data sets 
used during processing. Because writing 
these job control statements can be time- 
consuming work for the programmer, IBM sup- 
plies, for each compiler, four cataloged 
procedures to aid in the processing of FOR- 
TRAN modules. The use of cataloged proce- 
dures minimizes the number of job control 
statements that must be supplied by the 
programmer. 


USING CATALOGED PROCEDURES 


When a programmer uses cataloged proce- 
dures, he must supply the following ‘job 
control statements. 


1. A JOB statement. 


2. An EXEC statement that indicates the 
cataloged procedure to be executed. 


3. A procstep.SYSIN DD statement that 
specifies the location of the source 
module(s) or the object module(s) to 
the control program. (Note: If the 
source module(s) and/or object mod- 
ule(s) are placed in the input stream, 
a delimiter statement is required at 
the end of each data set.) 


In addition, a GO.SYSIN DD statement 
can be used to define data in the input 
stream for load module execution. (A de- 
limiter statement is required at the end of 
the data.) 


The job control statements needed to 
invoke the procedures, and deck structures 
used with the procedures are described in 
the following text. 


ee ee wre we ae ew ee ee 


4As an alternative, the object module may 
be edited and then automatically executed 
by the loader, another IBM-supplied pro- 
gram. Details on the use of the loader 
can be found in the Linkage Editor and 
Loader publication. 


FORTRAN JOB PROCESSING 


COMPILE 


The FORTRAN IV (G) cataloged procedure 
for compilation is FORTGC; the FORTRAN IV 
(H), FORTHC.? These cataloged procedures 
consist of the control statements shown in 
Figures 42 and 47, respectively. 


Figures 14, 15, and 16 show control 
statements that can be used, as programming 
needs dictate, to invoke for either compil- 
er the cataloged procedure for compilation. 
For both compilers, control statements and 
control statement fields are identical, 
except for the procedure-name specified on 
the EXEC statement: FORTGC is specified 
for the (G) compiler; FORTHC, for the (H) 
compiler. In the control statement 
sequences shown, the SYSIN data set con- 
taining the source module is defined as 
data in the input stream for the compiler. 
Note that a delimiter statement follows the 
FORTRAN source module. 


//jobname JOB 
// EXEC FORTGC or FORTHC 
//FORT.SYSIN DD * 


(Sere 1 
| FORTRAN Source Module | 
Vi ah ee ee a SS 8 J 
/* 


Figure 14. Invoking the Cataloged Proce- 


dure FORTGC or FORTHC 


Single Compile: A sample deck structure to 
compile a single source module is shown in 
Figure 15. 


//JOBSC JOB 00, FORTRANPROG, MSGLEVEL=1 
//EXECC EXEC PROC=FORTGC or PROC=FORTHC 
7/FORT.SYSIN DD * 


[Oe eee ee ee a eS 1 
| FORTRAN Source Module | 
Me a a ee re J 
/* 

Figure 15, Compiling a Single Source 


Module 


Batched Compile: A sample deck structure 
to batch compile is shown in Figure 16. 


2For FORTRAN Iv (H), if the EDIT option is 
specified, a SYSUT1 data set must be 
defined as a work data set for the compil- 
er; if the compiler XREF option is speci- 
fied, a SYSUT2 data set must be defined as 
a work data set. 
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//JOBBC JOB 00, FORTRANPROG, MSGLEVEL=1 
//EXECC EXEC PROC=FORTGC or PROC=FORTHC 
//¥FORT.SYSIN DD * 


Cn es ere ee ae ee 1 
| First FORTRAN Source Module | 
es Sa ee ee J 
eS Re ne ee ee ee 1 
| Last. FORTRAN Source Module | 
Hn SN aan a he 4 
/* 

Figure 16. Compiling Several Source 


Modules 


When several source modules are entered 
in the SYSIN data set for one job step, the 
compiler recognizes the FORTRAN END state- 
ment. If the next card is a delimiter 
statement, control returns to the control 
program at the end of the compilation. If 
the next card is a FORTRAN statement, con- 
trol remains with the FORTRAN compiler. 


COMPILE AND LINKAGE EDIT 


For FORTRAN IV (G), the cataloged proce- 
dure to compile FORTRAN source modules and 
linkage edit the resulting object modules 
is FORTGCL; for FORTRAN IV (H), FORTHCL. 
These cataloged procedures consist of the 
control statements shown in Figures 43 and 
48, respectively. 


Figure 17 shows control statements that 
can be used to invoke FORTGCL or FORTHCL. 
The control statements are identical for 
both compilers, except for the procedure- 
name specified on the EXEC statement: 
FORTGCL is specified for the (G) compiler; 
FORTHCL, for the (H) compiler. 


//jobname JOB 
// EXEC FORTGCL or FORTHCL 
//FORT.SYSIN DD * 


FOS Pee ee eS ee lactones: | 
| FORTRAN Source Module | 
Mes Set 2 a i 
/* 

Figure 17. Invoking the Cataloged Proce- 


dure FORTGCL or FORTHCL 


LINKAGE EDIT AND EXECUTE 


For FORTRAN IV (G), the cataloged proce- 
dure to linkage edit FORTRAN object modules 
and execute the resulting load module is 
FORTGLG; for FORTRAN IV (H), FORTHLG. 

These cataloged procedures consist of the 
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control statements shown in Figures 44 and 
49, respectively. 


Figure 18 shows control statements that 
can be used to invoke FORTGLG or FORTHLG. 
The control statements are identical for 
both compilers, except for the procedure 
name specified on the EXEC statement: 
FORTGLG is specified for the (G) compiler; 
FORTHLG, for the (H) compiler. 


//jobname JOB 
// EXEC FORTGLG or FORTHLG 
//GKED.SYSIN DD * 


Ge eT ee 1 
| FORTRAN Object Module | 
[a a eg m) 
/* 

Figure 18. Invoking the Cataloged Proce- 


dure FORTGLG or FORTHLG 


A sample deck structure to linkage edit 
and execute, as one load module, several 
object modules entered in the input stream 
is shown in Figure 19. 


The object module decks were created by 
the DECK compiler option. The linkage edi- 
tor recognizes the end of one module and 
the beginning of another, and resolves 
references between them. 


//JOBBLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECLG EXEC PROC=FORTGLG or PROC=FORTHLG 
//UKED.SYSIN DD * 


SS a a a ie 1 
| First FORTRAN Object Module | 
bees Sele ee ee ee 4 
Be er sas en ee ee ee 1 
| Last FORTRAN Object Module | 
Pe oN ee Sea oe oe a ee 4 
/* 

//GO.SYSIN DD * 

a a a a ae a q 
| Data | 
beeei eos eu Sse ee ee 4 
/* 

Figure 19. Linkage Edit and Execute 


A sample deck structure is shown in 
Figure 20 to linkage edit and execute, as 
one load module, object modules that are 
members of the cataloged sequential data 
set, OBJMODS, which resides on a tape 
volume. In addition, a data set in the 
input stream is processed using the SYSIN 
data set. 
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//JOBBLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECLG EXEC FORTGLG or FORTHLG 
//TKED.SYSIN DD DSNAME=OBJMODS, DISP=OLD 
//GO.SYSIN DD * 


fee ae Sg a ee ee 1 
| Data | 
Be NA NE a de She, Pn eS Stk ht J 
/* 

Figure 20. Linkage Edit and Execute Object 


Modules in a Cataloged Data Set 


COMPILE, LINKAGE EDIT, AND EXECUTE 


The FORTRAN IV (G) cataloged procedure 
FORTGCLG and the FORTRAN IV (H) cataloged 
procedure FORTHCLG each pass a source 
through three procedure steps -- compile, 
linkage edit, and go (execute). These cat- 
aloged procedures consist of the control 
statements shown in Figures 45 and 50, 
respectively. 


Figures 21, 22, and 23 show control 
statements used to invoke FORTGCLG or 
FORTHCLG. For both compilers, control 
statements and control statement fields are 
identical, except for the procedure name 
specified on the EXEC statement: FORTGCLG 
is specified for the (G) compiler; 
FORTHCLG, for the (H). 


//jobname JOB 
4/ EXEC PROC=FORTGCLG or PROC=FORTHCLG 
//FORT.SYSIN DD * 


(ae eet Sg ee a 1 
| FORTRAN Source Module | 
Use et ae Pe ee Be Nt J 
/* 

Figure 21. Invoking the Cataloged Proce- 


dure FORTGCLG or FORTHCLG 


Single Compile, Linkage Edit, and Execute: 
Figure 22 shows a sample deck structure to 
compile, linkage edit, and execute a single 
source module. 





//JOBSCLG JOB 00, FORTPROG, MSGLEVEL=1 
//EXECC EXEC FORTGCLG or FORTHCLG 
//FORT.SYSIN DD * 


ieee are a a ee ee 4 
i FORTRAN Source Module 

GaSe a a ee J 
/* 

//GO.SYSIN DD * 

a ee ee ER ee ere aR POR Gea ow 1 
| Data | 
ton ete ee ee eS 4 
/* 

Figure 22. Single Compile, Linkage Edit, 


and Execute 
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Batched Compile, Linkage Edit, and Execute: 
Figure 23 shows a sample deck structure to 
batch compile, linkage edit, and execute a 
FORTRAN main program and its subprograms. 
The source modules are placed in the input 
stream along with a data set that is read 
using the SYSIN data set. 


//JOBBCLG JOB 00, FORTPROG, MSGLEVEIL=1 
//EXECCLG EXEC FORTGCLG or FORTHCLG 
//FORT.SYSIN DD * 


aa a a a me 1 
| First FORTRAN Source Module 

Pike Soe ee Se J 
(ST SSS SS re SP rere 1 
| Last FORTRAN Source Module | 
Lae ee a ee ee J 
/* 

//GQ.SYSIN DD * 
(RS Re Sa Sane 1 
| Data | 
en So a se Dy Sal Te 4 
/* 

Figure 23. Batched Compile, Linkage Edit, 


and Execute 


COMPILE AND LOAD 


The FORTRAN IV (G) cataloged procedure 
FORTGCLD and the FORTRAN IV (H) cataloged 
procedure FORTHCLD compile FORTRAN source 
modules and load the resulting object 
modules. The load step combines the func- 
tion of the linkage editor with execution 
ef the edited module. 


Figure 23.1 shows control statements 
that can be used to invoke FORTGCLD or 
FORTHCLD. 


//jobname JOB 

//EXECLD EXEC PROC=FORTGCLD 
Or PROC=FORTHCLD 

//FORT.SYSIN DD * 


inact aa a 1 
| FORTRAN Source Module | 
Be ah a coe as Se eee ee ee a a J 
/* 


Figure 23.1. Invoking the Cataloged Proce- 


dure FORTGCLD or FORTHCLD 


e Compile. d Figure 23.2 shows 
control statements that can be used to com- 
pile and load a single source module. 


FORTRAN Job Processing 39 


Page of GC28-6817-2, Revised 12/30/70, 


//jobname JOB 00,*'SOURCE A',MSGLEVEL=1 
//EXECA EXEC FORTGCLD or FORTHCLD 
//FORT.SYSIN DD * 


Pon Sr Spe eae te ee 1 
| FORTRAN Source Module | 
beh oe Se eet ee a 4 
/* 

//GO.SYSIN DD * 

FS a ee ee ep ye 1 
| Data | 
(Se oP See Sena ae ee 8 oe ee J 
/* 


Figure 23.2. Single Compile and Load 


Batched Compile and Load: Figure 23.3 
shows control statements that can be used 
to batch compile and load a FORTRAN main 
program and its subprograms. The source 
modules are placed in the input stream 
along with a data set that is read using 
the SYSIN data set. 


//jobname JOB 00, SOURCE B',MSGLEVEL=1 
//EXECB EXEC PROC=FORTGCLD or PROC=FORTHCLD 
//FORT.SYSIN DD * 


Pa aaa eS eee ae a ee s 
| Last FORTRAN Source Module | 
be.2 loa cl eee ee J 
/*® 

//GO.SYSIN DD * 

gc a aa aR 1 
| Data | 
teeta eS Se ee J 
/* 


Figure 23.3. Batched Compile and Load 


COMPILER PROCESSING 


The names for DD statements (ddnames) 
relate I/O statements in the compiler with 
data sets used by the compiler. These 
ddnames must be used for the compiler. 

When the system is generated, names for I/O 
device classes are also established and 
must be used by the programmer. 


compiler Name 


The program name for the FORTRAN IV (G) 
compiler is IEYFORT; for the FORTRAN IV (H) 
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compiler, IEKAA00. If either compiler is 
to be executed without using the supplied 
cataloged procedures, an EXEC statement of 
the following form must be used: 


// BREC PGM=IEYFORT or // EXEC PGM=IEKAA00 


(For more information on procedures and 
options in invoking IFYFORT or IEKAA00, see 
"Appendix A: Invoking the FORTRAN 
Compiler.") 


The compiler can use seven data sets. 
To establish communication between the com- 
piler and the programmer, each data set is 
assigned a specific ddname. Each data set 
has a specific function and device require- 


ment. Table 3 lists the ddnames, func- 
tions, and device requirements for the data 
sets. 


To compile a FORTRAN source module, two 
of these data sets are necessary -- SYSIN 
and SYSPRINT, along with the direct access 
volume(s) that contains the operating sys- 
tem. However, with these two data sets, 
only the source listing is generated by the 
compiler. If an object module is to be 
punched and/or written on a direct-access 
or magnetic tape volume, a SYSLIN and/or 
SYSPUNCH DD statement must be supplied.+ 


For the DD statements SYSIN, SYSABEND, 
SYSUDUMP, or SYSPRINT, an intermediate 
storage device may be specified instead of 
the card reader or printer. The intermedi- 
ate storage device can be magnetic tape or 
a direct-access device. 


If an intermediate device is specified 
for SYSIN, the compiler assumes that the 
source module deck was written on interme- 
diate storage by a previous job or job 
step. If an intermediate device is speci- 
fied for SYSPRINT, the map, listing, and 
error/warning messages are written on 
intermediate storage; a new job or job step 
can print the contents of the data set. 
When the SYSPRINT data set is written on 
intermediate storage, carriage control 
characters are placed in the records. 


1For FORTRAN IV (H), if a structured source 
listing is to be generated, a SYSUT1 DD 
statement must be supplied. If a cross 
reference listing is to be generated by 
the compiler, a SYSUT2 DD statement must 
be supplied. 
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Table 20 Compiler ee 


| SYSPUNCH | punching {ecard punch*+ 
| [the object |*direct access 
| [module deck|»*magnetic tape 


| 

Sai Soe Se Sore 4 
|SYSIN leading the|ecard reader | 
| |source | intermediate | 
| | program | storage | 
mice wooo ofS Sesto Sek ee oe 4 

| SYSPRINT|writing {eprinter | 
| [the storage|eintermediate | 
| |map, | storage | 
| |listing, | | 
| [label map, | | 
| and | | 
| [messages { | 
~-------}----------- }--------------------4 
| 

| 


+ 
( [output data|edirect access 
| [set for the|emagnetic tape 
| [object {ecard punchi 
| |module, | 
| {used as | 
| [input to { 
| [the linkage| 
| |editor | 
ae 


4 

| 

[ 

I 

| 

I 

| 

{ 

| 

4 

I 

v | 

| Twork data |edirect access | 
| [set for the|emagnetic tape | 
| [structured | | 
| {source | 
| jlisting | 
4 

| |work data edirect access | 
| |set for the|emagnetic tape | 
| | compiler | 
| [cross | 
{ | reference { 
{ [listing | 
4 

{ 

H 

| 

| 


sf oa tae 


| SYSABEND|writing the|»*printer 
or |dump for an|eintermediate 
| SYSUDUMP | abnormal | storage 


| | termination | 
Son Se 4-----------4--~----------~-------4 


|*These must not be the same card Pup 


Compiler Device Classes 


Names for input/output device classes 
used for compilation are also specified by 
the operating system when the system is 
generated. The class names, functions, and 
types of devices are shown in Table 4. 


The data sets used by the compiler must 
be assigned to the device classes listed in 
Table 5. 


Compiler Data Set Assumptions 


Standard assumptions are made for the 
DCB parameter of the data sets used by the 
FORTRAN IV (G) and (H) compilers. Table 6 
contains the values set for the logical 
record length, record format, and blocksize 
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for the FORTRAN IV (G) compiler. Table 7 
contains the values set for the logical 
record length, record format, and blocksize 
for the FORTRAN IV (H) compiler. Of the 
values in these two tables, only the values 
for blocksize may be overridden with a DD 
statement. 


In addition, the programmer may specify 
the number of buffers to be used for the 
compiler data sets. If this information is 
missing, the queued sequential access 
method (QSAM) defauit is used. This 
default is three buffers for an IBM 2540 
card read punch and two buffers for all 
other devices. 


Table 4. Device Class Names 
r Sst Sa Sareea alpaca at a Sane cat aca 4 


Compiler Options 


Options may be passed to the FORTRAN IV 
(G) or (H) compiler through the PARM par- 
ameter in the EXEC statement (see Figure 
24). 


The following information may be speci- 
fied for both compilers: 


1. Whether a listing of an object module 
is printed. 


2. The name assigned to the program. 


3. The number of lines per page for the 
source listing. 


4. Whether the source module is coded in 
Binary Coded Decimal (BCD) or Extended 
Binary Coded Decimal Interchange Code 
(EBCDIC). 


5. Whether a list of the source state- 
ments, with their associated internal 
statement numbers, is printed. 


6. Whether an object module is punched. 


7. Whether a storage map of variable 
names used in the source mdoule is 
printed. 


8. Whether the compiler writes che object 
module on external storage for input 
to the linkage editor. 


9. Whether traceback information is to be 
inserted into the source module. 


eS eee eee a 
{| SYyssQ |writing, [emagnetic tape] 
| jreading, and |edirect access | 
{ | backspacing | | 
| | (sequential) | | 
See ore he See ea OES Dries agaist 1 
| SYSDA |writing, [edirect access| 
| |reading, | | 
| |backspacing, | | 
| jand updating | | 
| [records in | | 
| [place (direct) | | 
~---------4---------=----- 4--------------4 
| syscP |punching cards |ecard punch | 
~-=-------}--------------- 4--------------4 
[A |SYSOUT output |*printer | 
{ | [*magnetic tape| 
}---------- 4--------------- 4--------—----- 
|B [SYSOUT card [*card punch | 
| jimage output | emagnetic tape| 
bps ee be eee Poco eee eS J 
Table 5. Correspondence Between Compiler ddnames and Device Classes 
once arenes Nr rr 
| ddname | Possible Device Classes (H) 
Settee 2 }----------------------~---+----+-+ 
| SYSIN | S¥SSQ, or the input stream device 
| {| (specified by DD * or DD DATA), 
| | or a device specified as the 
I | card reader 
ee at 4{---+~-- +++ = 
|SYSPRINT | A,SYSSQ 
ee 4-4 
|SYSPUNCH | B,SYSCP1,SYSSQ,SYSDA 
poe ee SS, 4—--~------~~~---~-~+--+-~-- +++ 
| SYSLIN | SYSSQ, SYSDA, SYSCP2 
SS ek, 4---++-~-----~-------- +--+ - 
|SYsuT1 | sYssgQ 
ee 4—--~---~~--~~+-~+-~+---+~- +--+ +--+ 
| sysuT2 | syssQ 
corice os Se 4-----~------~----------+--~+--+--+- 
|SYSABEND | A,SYSSQ 
or | 
|SYSUDUMP | 
}---------- Petco ees Se eee eee et 


Sage TL. en ae Ea ee ne Rone ee ee eg pee ge a Pe tm es 1 
| Possible Device Classes (G) { 
~--4}--~~-----~------~---------------------- 4 
| syYSsQ, or the input stream device | 
| (specified by DD * or DD DATA), | 
| or a device specified as the { 
| card reader { 
~~~4----~-------~-------------------------- 4 
| A,SYSSQ | 
~--}--------------------------------------- : 
| 8B,SYSCP | 
o--4}-----------~--------------------------- 4 
| SyYSSQ,SYSDA | 
~--4------------------------------~---~---- : 
| { 
---4---~-~---~++--~+--~— +--+ += 4 
| i 
nan fawn nn { 
| | 
| | 
| { 
He ae as a ee a St 4 


{+SYSPUNCH and SYSLIN must not be assigned to the same card punch. | 
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Table 6. DCB Assumptions for the (G) Com- Table 7. DCB Assumptions for the (H) Com- 


piler Data Sets piler Data Sets 
(ese ar a Too SSSS Tee TOTSS Ses ay. PPS TES hacer rests (beanies 2 Seana patti 
| ddname | LRECL | RECFM | BLKSIZE | | ddname | LRECL | RECFM | BLKSIZE* | 
races ame aca 2 ae a aap ar ec esses eee) Wiss seeaso | cae ais pe: ies mamas Fareed 4 
| SYSIN {| 80 | FB | 80 | | SYSIN | 80 | FB | 802 | 
}---=-~~---—- 4-~----~- {-—------ f---~-~---- {4 }--------- ~--------- 4——-~---- +-—------- 
| SYSPRINT | 120 | FBSA | 120 | | SYSPRINT | 137 { VBA [| 1413 | 
 iecacioe uae arse: : Sone 1 ic ara 5 as a 1 eee seneesS | naar E | fore esscsse 4 
| SYSLIN | 80 | FBS | 80 | | SYSLIN | 80 | FB } 804 | 
I RS oe dots a eed a SSR ay ean RS PR lec Ea ae RG gE 
| SYSPUNCH | 80 | FBSA | 80 | | SYSPUNCH | 80 | FB | 801 | 
}---------~-- det Si Bee aeons Meise osee ay | pe ee 4---------- 4-------- 4—------~-- 
|Note: The values specified for LRECL and| | SYSUT1 | 105 | FB [| 10502 { 
|RECFM cannot be changed by the FORTRAN { fr~-------- 4--~-------- +-------- 4---------- 4 
[programmer. The value for BLKSIZE may be| | SYsUT2 [1024-40963] FB [1024-40962 | 
| changed. | ----------- 1---~--——-. ~1t-~--~~-~ 4-+---—~-—-~ 5 | 


|4This value may be increased by overrid- 
| ing the present value, either through a 
| DCB BLKSIZE parameter in the associated 
| DD statement or through the DSCB block- 
| size information for a preallocated data 
| set -- if the overriding value is a mul- 
| tiple of LRECL. 
|?This value is fixed by the compiler and 
| may not be overridden. If BLKSIZE is 

1. Whether a storage map of labels used | provided either through a DCB parameter 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 


| | 

|For fixed-length records (Ff), S indicates| | 
| 

| 

| 

I 

| 

| 

| 

in the source module is printed. in the DD statement or through a DSCB | 
| 

| 

| 

| 

| 

| 

| 

| 

| 

| 


[standard blocks, with no truncated blocks | 
Jor unfilled tracks within the data set. | 
beer eS oe LS 4 


The following information may be speci- 
fied for the (H) compiler only: 


for a preallocated data set, it is 
ignored. 
3The value is within this range, and the 
actual value is calculated during execu- 
tion. The size of one of the tables 
used by the compiler (the address con- 
stant table) is compared with the track- 
size of the device specified by SYSUT2, 
and the LRECL and BLKSIZE fields are 
equated to the smaller value. 

Compiler options in the PARM parameter l-----~-~——~—-——_—___--—--_._-__.---—-- -------- += 4 
need not be coded in any specific order. 


2. The type of optimization, if any, 
desired by the programmer. 


3. Whether a structured source listing is 
written. 


4. Whether a cross reference listing is 
printed. 


Sots oe ee eee aortas see ses ete ae es ee 1 
Compiler Options: FORTRAN IV (G) and FORTRAN IV (BH) 


PARM 
PARM. procstep 


» SOURCE 
NOLIST( [(,NAME=xxxxxx] [, LINECNT=xx]  _), NOSOURCE 





‘ tony 





¢ NODECK » NOMAP » NOLOAD eEBCDIC » NOID' 


| 

i 

| 

I 

| 

| 

| , DECK MAP LOAD BCD ,iID "22 3 
I 

| Compiler Options: FORTRAN IV (H) ONLY 

|. 

| \PARM | ,EDIT »XREF /'i 2 3 
| /PARM. procstep\ = "(COPT={0/1|2}] [,SIzZE=nnnnk] }«NOEDIT( }, NOXREF 

|41£ the information specified contains blanks, parentheses, or equal signs, either the 
| subparameter must be enclosed by apostrophes or the entire PARM field must be deli-~ 

| mited by apostrophes instead of parentheses. 


| 
| 
{2If only one option is specified and it does not contain any blanks, parentheses or | 
-| equal signs, the delimiting parentheses or apostrophes may be omitted. | 
[?The maximum number of characters allowed between delimiting parentheses is 100. If | 
| the option list is enclosed in apostrophes, however, the PARM parameter must be coded | 
| on one card. | 
J 


e Figure 24. Compiler Options 


42 


LIST or NOLIST 


The LIST option indicates that the 
object module listing is written in the 
data set specified by the SYSPRINT DD card. 
(The statements in the object module list- 
ing are in a pseudo assembler language for- 
mat.) The NOLIST option indicates that no 
object module listing is written. A 
description of the object module listing is 
given in the section "System Output.” 


NAME=xXxxXxxx 


The NAME option specifies the name 
(xxxxxx) assigned to a module (main program 
only) by the programmer. If NAME is not 
specified or the main program is not the 
first module in a compilation, the compiler 
assumes the name MAIN for the main program. 
The name of a subprogram is always the name 
specified in the SUBROUTINE or FUNCTION 
statement. 


The name appears in the source listing, 
map, and object module listing. (See "Mul- 
tiple Compilation Within a Job Step" in 
this section for additional considerations 
concerning the NAME option.) 


LINECNT=xx 


The LINECNT option specifies the maximum 
number of lines (xx) per page for a source 
listing. The specified number (xx) may be 
any in the range 01 to 99. If LINECNT is 
not specified, a default of 50 lines per 
page is provided. (The LINECNT option is 
effective only at compile time.) 


The SOURCE option specifies that the 
source listing is written in the data set 
specified by the SYSPRINT DD statement. 
The NOSOURCE option indicates that no 
source listing is written. A description 
of the source listing is given in the sec- 
tion “System Output." 


DECK or NODECK 


The DECK option specifies that an object 
module card deck is punched as specified by 
the SYSPUNCH DD statement. The object 
module deck can be used as input to the 
linkage editor in a subsequent job. NODECK 
specifies that no object module deck is 
punched. A description of the deck is 
given in the section “System Output." 


The MAP option specifies that a table of 
names is written in the data set specified 
by the SYSPRINT DD statement. The type and 
location of each name is listed. Included 
in the table of names for FORTRAN IV (H) is 


a table of labels appearing in the input 
stream. A description of the table is 
given in the section "System Output." The 
NOMAP option specifies that the table of 
names is not written. 


The LOAD option indicates that the 
object module is written in the data set 
specified by the SYSLIN DD statement. This 
option must be used if the cataloged proce- 
dure to compile and linkage edit, or to 
compile, linkage edit, and execute is used; 
ise., the object module is used as input to 
the linkage editor in the current job. The 
NOLOAD option indicates that the object 
module is not written on external storage. 
This option can only be used if the cata- 
loged procedure to compile is used. 


BCD_or EBCDIC 

The BCD option indicates that the source 
module is written in Binary Coded Decimal; 
EBCDIC indicates Extended Binary Coded 
Decimal Interchange Code. To intermix BCD 
and EBCDIC in the source module, BCD should 
be specified. 


Notes: 


1. If the EBCDIC option is selected, 
statement numbers passed as arguments 
must be coded as 


én 


However, if the BCD option is 
selected, statement numbers passed as 
arguments must be coded as 


$n 


and the $ must not be used as an 
alphabetic character in the source 
module. 


(The n represents the statement 
number. ) 


2. The compiler does not support BCD 
characters either in literal data or 
as print control characters. Such 
characters are treated as EBCDIC. For 
example, a BCD + used as a carriage 
control character will not cause 
printing to continue on the same line. 
Programs keypunched in BCD, therefore, 
should be carefully screened if errors 
relating to literal data and print 
control characters are to be avoided. 


ID or NOID 
The ID option specifies that internal 


statement numbers (ISN) are to be generated 
for statements that call subroutine or con- 
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tain external function references. Calis 
to IBCOM are not affected. An additional 
four bytes are required for each linkage. 


The ISN is used by the traceback in the 
event of an error in the called subprogram. 
See the discussion on "Load Module Output” 
in the section on "System Output." 


‘ 
|H ONLY | _OPT={0|1]2} 
L 4 


The OPT=0 option indicates that the com- 
piler uses no optimizing techniques in pro- 
ducing an object module. The OPT=1 option 
indicates that the compiler treats each 
source module as a single program loop and 
optimizes the loop with regard to register 
allocation and branching. The OPT=2 option 
indicates that the compiler treats each 
source module as a collection of program 
loops and optimizes each loop with regard 
to register allocation, branching, common 
expression elimination, and replacement of 
redundant computations. The options OPT=1 
and OPT=2 are described in more detail in 
the section “Appendix H: FORTRAN IV (H) 
Optimization Facilities." 


In normal instances, the amount of main 
storage allocated for the compile step 
depends on the region size in an MVT 
environment, the partition size in an MFT 
environment, or the machine size in a PCP 
environment. The compiler uses all avail- 
able main storage except for 3K bytes (1K= 
1024 bytes) which are left for non-resident 
system routines. 


In certain instances, however, a pro- 
grammer may wish to limit the amount of 
main storage used by the compiler. An 
example would be when the FORTRAN H compil- 
er is executed as the original task in a 
multitasking environment. Unless the 
amount of main storage used by the compiler 
is limited, no subtasks could be created 
since no more storage would be available in 
the region. 


The programmer may request the amount of 
main storage to be allocated for the com- 


ay 


piler by specifying SIZE=nnnnk in the 
operand field of the EXEC statement. The 
term nnnn represents the amount of main 
storage available for compilation. This is 
approximately equal to the work area and 
the size of the compiler code. The value 
of nnnn can range from 115 to 9999. 


During compilation, if the unused avail- 
able work area is more than 10K bytes, the 
compiler prints the informational message, 
nnnnk BYTES OF CORE NOT USED. This message 
indicates how much smaller the specified 
SIZE value could be. (If the SIZE paramet- 
er is not specified, this message indicates 
how much smaller the region size could be). 


The size of the region or partition in 
which the compiler is running must be at 
least 10K bytes larger than the specified 
SIZE value. If the SIZE parameter is spec- 
ified incorrectly, the compiler diagnostic 
message IEK410I (INVALID SIZE PARAMETER) is 
produced and the SIZE parameter is ignored. 


The EDIT option specifies that a struc- 
tured source listing is written in the data 
set specified by the SYSPRINT DD statement. 
This listing indicates the loop structure 
and the logical continuity of the source 
program. If this option is used, OPT=2 
must be specified and a DD statement with 
the name SYSUT1 must be supplied. The fol- 
lowing is a typical DD statement for a uti- 
lity data set: 

J/SXSOUTL DD DSNAME=6UT1, UNIT=SYSSQ, 

SPACE=(TRK, (40) ) 


6UT1 
specifies a temporary data set. 


UNIT=SYSSQ 
specifies that the data set is to 
reside in a sequential device class. 


SPACE=(TRK, (40)) 
specifies that if the data set is 
assigned to a direct access device, 40 
tracks are to be allocated to the data 
set. 


The NOEDIT option specifies that no 
structured source listing is written. A 
description of the structured source list- 
ing is given in the section "System 
Output." 


Page of GC28- 


~~4 

| XREF or NOXREF 
Store 17 

The XREF option specifies that a cross 
reference listing of variables and labels 
is written in the data set specified by the 
SYSPRINT DD statement. This listing indi- 
cates the internal statement number of 
every statement in which a variable or 
label is used. If this option is speci- 
fied, a DD statement with the name SYSUT2 
must be supplied. The NOXREF option speci- 
fies that no cross reference listing is 
written. A description of the compiler 
cross reference listing is given in the 
section "System Output." 


Note: The default compiler options shown 
in this publication are standard IBM 
defaults; however, during system genera- 
tion, an installation can choose its own 
set of default options. 


Multiple Compilation Within a Job Step 


Several compilations may be performed 
within one job step. The compiler recog- 
nizes the FORTRAN END statement in a source 
module, compiles the program, and deter- 
mines if another source module follows the 
END statement. If there is another source 
module, another compilation is initiated 
(see Figure 25). 
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|//STEP1 EXEC FORTGC or FORTHC 
|/7FORT.SYSIN DD * 

| 4 READ (8,10)A,B,C 

| : 

| : 

| e 

| END 

| SUBROUTINE CALC 
| 

i 

| 

i 

L 


Multiple Compilation Within a 
Job Step 


Figure 25. 


Only one EXEC statement may be used to 
initiate a job step; therefore, compiler 
options can be stated only once for all 
compilations in a job step. 


In a multiple compilation, only the 
first program (if it is a main program) is 
given the name specified in the NAME 
option; all subsequent main programs are 
given the name MAIN. If the first program 
is a subprogram, the name specified in the 
NAME option is not used. If the NAME 
option is not specified, all main programs 
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in a multiple compilation are given the 
name MAIN. For example, in the multiple 
compilation, 


//MOLCOM JOB 
// EXEC FORTGC or 
FORTHC, PARM. FORT=" NAME=IOR" 
//FORT.SYSIN DD * 
READ (1,10) ALP, BETA 
END 
SUBROUTINE INVERT(A, B) 


END 
READ(5) P,Q,R 


END 
/* 


the first main program is given the name 

IOR; the third program is given the name 

MAIN. The second program is assigned the 
name INVERT. 


When a multiple compilation is per- 
formed, the SYSLIN data set contains all 
the object modules, because only one SYSLIN 
DD statement may be supplied for compiler 
output. If tape or direct-access output is 
specified for the compiler, the object 
modules are written sequentially on the 
volume: 


T 1 
| Object Module 1 | Object Module 2 | .«.. 


LINKAGE EDITOR PROCESSING 


The linkage editor processes FORTRAN 
object modules, resolves any references to 
subprograms, and prepares a load module for 
execution.1 To communicate with the linkage 
editor, the programmer supplies an EXEC 
statement and DD statements that define all 
required data sets; he may also supply 
linkage editor control statements. 


4Another IBM-supplied program, the loader, 

combines -- into one job step -- the func- 
tions of the linkage editor with execution 
of the edited module. Details on the use 

of the loader can be found in the Linkage 

Editor and Loader publication. 


Linkage Editor Names 


Five linkage editor programs are avail- 
able with the operating system. The pro- 
gram names for these linkage editors and 
the minimum storage in which they are 
designed to operate are: 


PCP _ and MFT MVvT-System 
IEWLE150 15K 24K 
IEWLE180 18K 26K 
TEWLF 440 44k 54K 
IEWLF 880 88K 96K 
IEWLF128 128K 136K 


(Where K=1024 Bytes) 


All facilities described for the linkage 
editor in this publication are available 
with all five linkage editors, except that 
blocking of primary input/output is avail- 
able only with the higher level linkage 
editors: IEWLF440, IEWLF880, and IEWLF128. 


For simpler programming, the linkage 
editors have been assigned the alias pro- 
gram name IEWL. If the programmer speci- 
fies the parameter 


PGM=TEWL 


in the EXEC statement, the highest level 
linkage editor provided in the installa- 
tion's operating system is executed. If he 
wants to execute a specific linkage editor, 
he must specify the specific program name 
of that linkage editor. 


Linkage Editor Input _and Output 


There are two types of input to the 
linkage editor: primary and secondary. 


Primary input is a sequential data set 
that contains object modules and linkage 
editor control statements. (A member of a 
PDS cannot be the primary input.) Any 
external references among object modules in 
the primary input are resolved by the link- 
age editor as the primary input is proc- 
essed. Furthermore, the primary input can 
contain references to the secondary input. 
These references are linkage editor control 
statements and/or external references in 
the FORTRAN modules. 


Secondary input resolves the references 
and is separated into two types: automatic 
call library and additional input specified 
by the programmer. The automatic call 
library should always be the FORTRAN 
library (SYS1.FORTLIB), which is the PDS 
that contains the FORTRAN library subpro- 
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grams. Through the use of DD statements 
the automatic call library can be concate- 
nated with otner partitioned data sets. 


Three types of additional input may be 
specified by the programmer: 


e An object module used as the main pro- 
gram in the load module being con- 
structed. This object module, which 
can be accompanied by linkage editor 
control statements, is either a member 
of a PDS or is a sequential data set. 
The first record in the primary input 
data set must be a linkage editor 
INCLUDE control statement that tells 
the linkage editor to insert the main 
program. 


® An object module or a load module used 
to resolve external references made in 
another module. The object module, 
which can be accompanied by linkage 
editor control statements, is a sequen- 
tial data set or is a member of a PDS. 
The load moduie, which is a member of a 
PDS, cannot be accompanied by linkage 
editor control statements. An INCLUDE 
statement that defines the data set 
must be given. 


® A module used to resolve external 

references made in another module. The 
load module or object module, which can 
be accompanied by linkage editor con- 
trol statements, is a member of PDS. A 
linkage editor LIBRARY control state- 
ment that defines the data set to the 
linkage editor must be given. 


In addition, the secondary input can con- 
tain external references and linkage editor 
control statements. The automatic call 
library and any of the three types of addi- 
tional input may be used to resolve 
references in the secondary input. 


The load module created by the linkage 
editor is always placed in a PDS. Error 
messages and optional diagnostic messages 
are written on intermediate storage or a 
printer. In addition, a work data set is 
required by the linkage editor to do its 
processing. Figure 26 shows the I/O flow 
in linkage editor processing. 


Linkage Editor ddnames_ and Device Classes 





The programmer communicates data set 
information to the linkage editor through 
DD statements identified by specific 


ddnames (similar to the ddnames used by the 


compiler). The ddnames, functions, and 
requirements for data sets are shown in 
Table 8. 





SYSUT 1 
SYSLIB Work SYSLMOD 

Automatic Bertee Output 

Cal Module 

Library Library 

SYSLIN 

Primary —_ Linkage 
Input Sg Editor 











Additional 
Libraries 





SYSPRINT 


Figure 26. Linkage Editor Input and Output 


(SYSLIN {primary input data, normally the output of |edirect access 


| [the compiler 


[emagnetic tape 
[ecard reader 


{ i 

}-------------- 4-~~~-~-----~~--~---------------—---------- 4---------------~------------ 1 
{SYSLIB jautomatic call library (SYS1.FORTLIB) J*direct access 

~--~~ === == 4-~-------------------------------------~---- 4} --=-------------------------4 
{SYSUT1 {work data set jedirect access 

beatae ae RS As a atl ad ae hh 4--—-~—-~~~.--------~-~----------4 
{SYSPRINT |diagnostic messages [*printer | 
j H Jeintermediate storage device| 
}----—--------- 4+----—---—___---_----—--_--_---——------ tomar nan nn nena { 
| SYSLMOD Joutput data set for the load module Jedirect access 

pan mn nnn fn nnn nn nnn nn nnn nnn nnn fanaa nnn nanan nn nme ce nnnnn 4 
juser-specified|additional libraries and object modules |*direct access 

{ j |emagnetic tape 
Roce a AR at hs A at pe es i I ata PW Se Se Soe Se ee J 


Diagnostic 
Data Set 


Any data sets specified by SYSLIB or 
SYSLMOD must be partitioned data sets. The 
ddname for the DD statement that retrieves 
any additional libraries is written in 
INCLUDE and LIBRARY statements and is not 
fixed by the linkage editor. 


The device classes used by the compiler 
(see Table 4) must also be used with the 
linkage editor. The data sets used by 
linkage editor may be assigned to the 
device classes listed in Table 9. 





Table 9. Correspondence Between Linkage 
Editor ddnames and Device 
Classes 
Se oe a ee es ee 1 
| ddname |Possible Device Classes | 
| SYSLIN |SYSSQ,SYSDA,or the input | 
| [stream device (specified | 
| |by DD * or DD DATA), or a| 
| |device specified as the | 
| [card reader | 
See See eS ee os Dee ee 4 
|SYSLIB | SYSDA | 
tbcnelielon ta ai ae 4 
|SYsuT1 | SYSDA | 
iS Soe a ee ee ee 4 
|SYSLMOD |SYSDA | 
nn nn nn nf nd 
| SYSPRINT |A, SYSsQ | 
}--------------}----------~--------------- { 


user-specified |SYSDA, SYSSO | 


EE 


Additional Input 


The INCLUDE and LIBRARY statements are 
used to specify additional secondary input 
to the linkage editor. Modules neither 
specified by INCLUDE or LIBRARY statements 
nor contained in the primary input are 
retrieved from the automatic call library. 


INCLUDE Statement: 


a a ee a a a eee ----4 
[operation] Operand ( 


| INCLUDE fadnamet(menbec name | 
! | U,member-name)...)] | 
| | [, ddname [ (member—name | 
| | (,member-name}...)1]])... | 

4 


a metre ec cree mt i Saleh Sl Se iri eins hs rp de 


The INCLUDE statement is used to include 
either members of additional libraries or a 
sequential data set. The “ddname” speci- 
fies a DD statement that defines either a 
library containing object modules and con- 
trol statements or just load modules, or 


defines a sequential data set containing 
object modules and control statements. The 
“member name" is not used when a sequential 
data set is specified. 


The linkage editor inserts the object 
module or load module in the output load 
module when the INCLUDE statement is 
encountered. 


LIBRARY Statement: 


eee 4 
| LIBRARY |ddname(member-name | 
| | (,member-name]...) | 
I | {,ddname(member-name | 
| | &,member-name]...)]... | 
bee ssseees Pose soe UL Sea oe LS ees ese 4 


The LIBRARY statement is used to include 
members of additional libraries. The 
“ddname™ must be the name of a DD statement 
that specifies a library that contains 
either object modules and linkage editor 
control statements, or just load modules. 
The “member name“ is an external reference 
that is unresolved after primary input 
processing is complete. 


The LIBRARY statement differs from the 
INCLUDE statement: external references 
specified in the LIBRARY statement are not 


resolved until all other processing, except 


references reserved for the automatic call 
library, is completed by the linkage edi- 
tor. (INCLUDE statements resolve external 
references when the INCLUDE statement is 
encountered. ) 


Example: Two subprograms, SUB1 and SUB2, 
and a main program, MAIN, are compiled by 
separate job steps. In addition to the 
FORTRAN library, a private library, MYLIB, 
is used to resolve external references to 
the symbols X, Y, and Z. Each of the 
object modules is placed in a sequential 
data set by the compiler, and passed to the 
linkage editor job step. 


Figure 27 shows the control statements 
for this job. (Cataloged procedures are 
not used.) In this job, an additional 
library, MYLIB, is specified by the LIBRARY 
statement and the ADDLIB DD statement. 

SUB1 and SUB2 are included in the load 
module by the INCLUDE statements and the DD 
statements DD1 and DD2. The linkage editor 
input stream, SYSLIN, is two concatenated 
data sets: the first data set is the 
sequential data set &GOFILE which contains 
the main program; the second data set is 
the two INCLUDE statements and the LIBRARY 
statement. After linkage editor execution, 
the load module is placed in the PDS 
PROGLIB and given the name CALC. 
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//STEPL EXEC 


//SYSLIN DD 
//SYSIN DD * 

Source module for MAIN 
/* 
//STEP2 EXEC 


//SYSLIN DD 
//SYSIN DD * 

Source module for SUB1 
/* 
//STEP3 EXEC 


//SYSLIN Dp 
//SYSIN DD * 

Source module for SUB2 
/* 


//STEPH EXEC PGM=IEWL 


//SYSLIB DD 
//SYSLMOD DD 
//ADDLIB DD 


4/DD1 DD 
//DD2 DD 
//SYSLIN DD 
// DD * 


INCLUDE DD1 
INCLUDE DD2 
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PGM=IEKAA00, PARM=" NAME=MAIN, LOAD" 
DSNAME=§GOFILE, DISP=(, PASS) , UNIT=SYSSQ 
PGM=IEKAA00, PARM=" NAME=SUB1, LOAD" 
DSNAME=§SUBPROG1, DISP=(, PASS) , UNIT=SYSSQ 
PGM=IEKAA00, PARM=" NAME=SUB2, LOAD' 


DSNAME=&SUBPROG2, DISP=(, PASS) , UNIT=SYSSQ 


DSNAME=SYS1.FORTLIB, DISP=OLD 
DSNAME=PROGLIB (CALC) , UNIT=SYSDA 
DSNAME=MYLIB, DISP=OLD 
DSNAME=*, STEP 2. SYSLIN, DISP=OLD 
DSNAME=*. STEP3.SYSLIN, DISP=OLD 
DSNAME=*. STEP1.SYSLIN, DISP=OLD 
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LIBRARY ADDLIB(X, Y, Z) 
/*® 
Figure 27. Linkage Editor Example -- (H) Compiler 
Note: This example shows the use of the 


FORTRAN IV (H) compiler (program name 
IEKAA00). An example showing the use of 
the (G) compiler would be identical except 
for program name; PGM=IEYFORT would be 
coded, where appropriate, instead of 
PGM=IEKAA00. 


Linkage Editor Priority 


If modules with the same name appear in 
a single data set, only the module encoun- 
tered first is inserted in the output load 
module. 
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Other Linkage Editor Control Statements 


In addition to the LIBRARY and INCLUDE 
statements, other control statements are 
available for use with the linkage editor. 
These statements enable the user to: spec- 
ify different names for load modules 
(ALIAS), replace modules within a load 
module (REPLACE), change program names 
(CHANGE), and name entry points (ENTRY). 
In addition, two statements (OVERLAY and 
INSERT) enable the programmer to overlay 
load modules. For a detailed description 
of these control statements, see the Link- 


age Editor and Loader publication, Form 
GC28-6538. 


Options for Linkage Editor Processing 


The linkage editor options are specified 
in an EXEC statement. The options that are 
most applicable to the FORTRAN programmer 
are: 





PARM MAP 
PARM. procstep| =(|XREF| [,LET] [,NCAL] 
{, LIST]) 
MAP or XREF 


The MAP option informs the linkage edi- 
tor to produce a map of the load module; 
this map indicates the relative location 
and length of main programs and subpro- 
grams. If XREF is specified, a map of the 
load module is produced and a cross 
reference list indicating all external 
references in each main program and subpro- 
gram is generated. The map or map and 
cross reference list. are written in the 
data set specified by the SYSPRINT DD 
statement. If neither option is specified, 
the system generation option for the proce- 
dure for the linkage editor is put into 
effect. Descriptions of the map and cross 
reference listing are given in "System 
Output." 


LET 


The LET option informs the linkage edi- 
tor to mark the load module executable even 
though error conditions, which could cause 
execution to fail, have been detected. 


NCAL 


The NCAL option informs the linkage edi- 
tor that the libraries specified in the 
SYSLIB DD statement or specified in LIBRARY 
statements are not used to resolve external 
references. (The SYSLIB DD statement need 
not be specified.) The subprograms in the 
libraries are not inserted in the load 
module; however, the load module is marked 
executable. 


LIST 


The LIST option indicates that linkage 
editor control statements are listed in 
card-image format in the diagnostic output 
data set specified by the SYSPRINT DD 
statement. 


Other options can also be specified for 
the linkage editor. For a detailed de- 
scription of all linkage editor options, 


see the Linkage Editor and Loader publica- 
tion, Form GC28-6538. 


LOAD MODULE EXECUTION 


When "PGM=program name" is used to in- 
dicate the execution of a load module, the 
module must be in either the system library 
(SYS1.LINKLIB) or a private library. When 
the module is in a private library, a JOB- 
LIB DD statement must be supplied to in- 
dicate the name of the private library. 

For example, assume that the load modules 
CALC and ALGBRA in the library MATH and the 
load module MATRIX in the library MATRICES 
are executed in the following job: 


//JOBN JOB 00, FORTPROG 

//SOBLIB DD DSNAME=MATH, DISP= (OLD, PASS) 
// DD DSNAME=MATRICES , DISP= (OLD, PASS) 
//STEP1 EXEC PGM=CALC 


//STEP2 EXEC PGM=MATRIX 


//STEP3 EXEC PGM=ALGBRA 


The JOBLIB DD statement concatenates the 
private library MATH with the system 
library. The private library MATRICES is 
concatenated with the system library, by 
concatenating the second DD statement with 
the JOBLIB DD statement. 


Execution ddnames 





In the source module, data set reference 
numbers are used to identify data sets. 
Data sets processed by a FORTRAN load 
module must be defined by DD statements. 
The correspondence between a data set 
reference number and a DD statement is made 
by a ddname. 


The ddname format that must be used for 
load module execution is 


FIXXFYyy 


where xx is the data set reference number, 
and yyy is a FORTRAN sequence number. 


Data Set Reference Number (xx): When the 
system is generated, the upper limit for 
data set reference numbers is specified by 
the installation; it must not exceed 99. 
This upper limit does not correspond to the 
number of input/output devices. 
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If an installation specifies an upper 
limit of 99 for its data set reference nun- 
bers, the ddnames and data set reference 
numbers correspond as shown in Table 10. 
Note that 0 is not a valid data set 
reference number. 


FORTRAN Sequence Number (yyy): The FORTRAN 


sequence number is used to refer to sepa- 
rate data sets that are read or written 
using the same data set reference number. 
For the first data set, the sequence number 
is 001; for the second 002; etc. This 
sequence number is incremented when (1) an 
END FILE statement is executed and a subse- 
quent WRITE is issued with the same data 
set reference number or (2) the "END=" exit 
is taken following a READ and a subsequent 
READ Or WRITE is issued with the same data 
set reference number. 


A DD statement with the required ddname 
must be supplied every time the WRITE, END 
FILE, WRITE sequence occurs. If the FOR- 
TRAN statements in the following example 
are executed, DD statements with the 
ddnames indicated by the arrows must be 
supplied for the corresponding WRITE 
statements. 

Statements ddnames 
15 FORMAT (3F10. 3,17) 

10 FORMAT (3F10. 3) 

DO 20 I=1,9 


20 WRITE(17,10)A,B,C -~--—------ > FT17F001 


END FILE 17 
po 30 I=1,N 


30 WRITE(17,15)X,¥,2,K —-------~- > FT17F002 
END FILE 17 
DO 40 I=1,M,2 


40 WRITE(17,10)A,B,C ~----~~----- > FT17F003 


END FILE 17 


If the preceding instructions are used 
to write a tape, the output tape (unla- 
beled) has the appearance shown in Figure 
28. The tapemarks are written by execution 
of the ENDFILE statements. Successful 
execution of ENDFILE always includes writ- 
ing an end-of-data indicator. 
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Reference Numbers for Data Sets Specified 
in DEFINE FILE Statements 


The characteristics of any data set to 
be used during a direct-access input/output 
Operation must be described by a DEFINE 
FILE statement. 


The data set reference number specified 
in any DEFINE FILE statement may refer to 
only one data set. In other words, the 
method described previously concerning 
references to separate data sets that are 
read or written using the same data set 
reference number is prohibited. For 
example, the statement 


DEFINE FILE 2(50,100,L,12) 


establishes a data set reference number of 
02. All subsequent input/output statements 
must refer to only one data set with the DD 
name of FTO2F001. (For a more detailed 
explanation of the DEFINE FILE statement, 
refer to the FORTRAN IV Lanquage publica- 
tion, Form GC28-6515.) 


Retrieving Data Sets Written With Varying 
FORTRAN Sequence Numbers 


To retrieve the data sets shown in 
Figure 28, the data set sequence number in 
the LABEL parameter must be supplied in the 
DD statement. The LABEL parameter is de- 
scribed in detail in the section "Creating 
Data Sets." 

je NL ( 
LABEL=( (data-set~sequence-number] .,SL ) 
l, BLP 
The “data set sequence number" indicates 
the position of the data set on a sequen- 
tial volume. (This sequence number is 
cataloged.) For the first data set on the 
volume, the data set sequence number is 1; 
for the second, it is 2; etc. 


Table 10. Load Module ddnames 

| Data Set Reference Numbers [| ddnames_ | 
|--~-----------------~-------- 4----------- 4 
| 1 { FroiFyyy | 
[ 2 | FTO2Fyyy | 
| : i . | 
| . | : { 
| : | : | 
| 13 [| FT13Fyyy | 
| ° | : | 
| . | . | 
| : | : | 
| 99 | FT99Fyyy | 
beseech esse oe ee ete dee eccee ace J 


If one of the data sets shown in Figure 
28 is read in the same job step in which it 
is written, an END FILE statement must be 
issued after the last WRITE instruction. 
If the data set is to be read by the same 
data set reference number, DD statement 
FTI7FO04 is used to read the data set. The 
execution of a READ statement following an 
END FILE increments the FORTRAN sequence 
number by 1. For example, the following DD 
statements are used to write the three 
data sets shown in Figure 28 and then read 
the second data set: 


//¥T17F001 DD UNIT=TAPE, LABEL=(,NL), 
tf DISP=(, PASS) 

//¥T17F002 DD UNIT=TAPE, LABEL=(2,NL), 
11 VOLUME=REF=*. FT1L7F001 
//¥T17F003 DD UNIT=TAPE, LABEL=(3, NL), 
// VOLUME=REF=*,. FT17F001 
//¥FT17F004 DD VOLUME=REF=*.FT17F001, 
Va DISP=OLD, LABEL=(2,NL), 

/ DSNAME=*. FT17F002, UNIT=TAPE 


bo | 


The VOLUME parameter indicates that the 
data set resides on the same volume as the 
data set defined by DD statement FT17F001. 
DD statement FTI7F004 refers to the data 
set defined by DD statement FT17F002. 


If the data set is read by a different 
data set reference number, for example, 
data set reference number 18; then, the DD 
statement FT17F004 is replaced by the 
statement. 


//FT18F001 DD VOLUME=REF=*.FT17F002, xX 
4/ DISP=OLD, LABEL= (2, NL) 


If the data sets shown in Figure 28 are 
cataloged for later reading, and if the 
following DD statements are used to write 
the data sets, 


//¥FT17F001 DD DSNAME=N1, LABEL=(1, NL), x 
// DISP=(, CATLG) , UNIT=TAPE, x 
4/ VOLUME=SER=16 3K 
//PT17F002 DD DSNAME=N2, LABEL=(2, NL), x 
// DISP=(, CATLG) , VOLUME=REF=*. FT17F001 

x 


//¥FT17F003 DD DSNAME=N3, LABEL=(3,NL), 
ff DISP=(, CATLG) , VOLUME=REF=*. FT17F002 


tapemark 
records | 


Cee NS a Pee ee 
[AB Cl Ar By Clee lAy B,C] 


Written using DD 
statement FT17F001 


Tape Output for Several Data Sets Using Same Data Set Reference Number 


Figure 28. 





Written using DD 
statement FT17F002 


the information necessary to retrieve the 
data sets is the DSNAME, the LABEL, and the 
DISP parameters. For example, if data set 
reference number 10 is used to retrieve 
data set Ni, the following DD statement is 
required. 


//¥T10F001 DD DSNAME=N1,DISP=OLD, xX 
1 LABEL=(, NL) 


If the data set is not cataloged and 
then retrieved in a later job, the VOLUME, 
UNIT, and LABEL information is needed to 
retrieve the data set. When the data set 
is created, the programmer must assign a 
specific volume to it. 


Assume the data sets shown in Figure 28 
were assigned the volume identified by the 
volume serial number A11111 when the data 
sets were created. If the second data set 
written on the volume is retrieved by data 
set reference number 10 in a later job, the 
following DD statement is needed. 


//¥T10F001 DD VOLUME=SER=A11111,DISP=OLD, X 
ff LABEL= (2, NL), UNIT=SYSSQ 


END Exit: Data sets written using the same 
data set reference number can be retrieved 
in the same job or job step by using a 
facility provided in the FORTRAN language 
-- the “END=" exit in a READ statement. 
After the last data set is written and the 
END FILE is executed, a REWIND may be 
issued. A subsequent READ using the same 
data set reference number resets the FOR- 
TRAN sequence number to 001. When the last 
record of a data set has been read, an 
additional READ causes the END exit to be 
taken. On the next READ, the sequence 
number is incremented by 1. The data sets 
shown in Figure 28 can be read by using the 
following sequence of statements. 


Note: The DD statements used to create the 
data sets also suffice for retrieving the 
data sets. No additional DD statements are 
required. 


1 
I 
| 
| 

= | 

[wee | 

oe \ 

; ; | 
Written using DD | 
statement FT17F003 | 
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REWIND 17 


100 READ(17,10,END=200)A,B,C ~--->FT17F001 


GO TO 100 


200 READ(17, 15, END=300) X, ¥, 2, K~---->FT17F002 


GO TO 200 


300 READ(17,10, END=350)A,B,C ~-~->FT17F003 


350 REWIND 17 


Concatenation: The data sets shown in 
Figure 28 can be concatenated and read as a 
single data set. The information necessary 
(assume cataloged data sets) to retrieve 
the data sets is the DSNAME, LABEL, and 
DISP parameters. For example, if data set 
reference number 16 is used to retrieve the 
data sets, the following DD statements are 
required. 


//FT16F001 DD DSNAME=N1,DISP=OLD, x 
tf LABEL=(, NL) 

tf DD DSNAME=N2, DISP=OLD, Xx 
1/ LABEL= (2, NL) 

Mf DD DSNAME=N3, DISP=OLD, x 
// LABEL= (3, NL) 


The ERR option the FORTRAN READ state- 
ment may be used to give control to the 
problem program if an uncorrectable I/0 
error occurs on a magnetic tape or direct- 
access device. This parameter is not ef- 
fective for data sets on unit record 
devices, 


Note: Concatenation of data sets with 
unlike attributes is not supported. Parti- 
tioned data sets with like attributes may 
be concatenated for input only. Concatena- 
tion of two or more members of the same PDS 
is not supported. 
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Partitioned Data Set Processing 





FORTRAN load modules may access two or 
more members of the same partitioned data 
set (PDS); however, only sequential proces- 
sing is permitted. The PDS must be closed 
for one member before attempting to read or 
write another member. 


PDS Processing Using "END="_Option: One 
method of sequentially processing two or 
more members of the same PDS is by using 
the "“END=" option in a FORTRAN sequential 
READ statement. When the “END=" option is 
executed and a subsequent READ or WRITE 
statement is issued with the same data set 
reference number, the FORTRAN sequence 
number is incremented by one. This allows 
another member of the PDS referenced by the 
same data set reference number to be 
processed. 


The following FORTRAN program illus- 
trates how this method is put into effect: 


INTEGER *4 x(20),¥(20) 


10 READ (2,1, END=98) X 
1 FORMAT (20A4) 
GO TO 10 
98 READ (2,1,END=99) Y 
GO TO 98 
99 WRITE (6,2) X,Y 
STOP 
END 


Execution of statement 10 results in the 
processing of the first PDS member which is 
referenced by the FORTRAN sequence number 
001. If this member has the name MEMBER1 
and resides in the cataloged partitioned 
data set named PDS, the DD statement that 
must be supplied is: 


//¥T02F001 DD DSN=PDS(MEMBER1), 
LABEL(,,, IN) , DISP=OLD 


When the "END=" option is exeucted in sta- 
tement 10 and the next READ statement, sta- 
tement 98, is encountered, the FORTRAN 
sequence number becomes 002. This closes 
the PDS for the first member. Another 
member may then be processed. If its name 
is MEMBERS, the DD statement that must be 
supplied is: 


//FTO02FO002 DD DSN=PDS(MEMBERS5), 
LABEL= (,,, IN) , DISP=OLD 


Note: For PDS processing, the "“END=" 
option specification is the only method of 
incrementing the FORTRAN sequence number. 
The END FILE statement methods described 
earlier in the section “FORTRAN Sequence 
Number" cannot be implemented since END 
FILE statements cannot be used for parti- 
tioned data sets. 





PDS Processing Using REWIND: A second 
method of processing two or more members of 
the same PDS is the use of the REWIND 
statement in the FORTRAN program. This 
statement should be of the form: 


REWIND a 


where a is an unsigned integer constant or 
variable representing a data set reference 
number. Execution of the REWIND statement 
closes the data set represented by the 
integer a. Any subsequent READ or WRITE 
statement opens the data set again. 


The following example illustrates the 
use of the REWIND statement for the reading 
of two members of the same PDS: 


INTEGER *4 X(20),¥(20) 
READ (2,1) X 

REWIND 2 

READ (3,1) Y 

WRITE (6,2) X,Y 


1 FORMAT (20A4) 

2 FORMAT (* *,20A4) 
STOP 
END 


Execution of the first READ statement 
results in the processing of the first PDS 
member which is referenced by the FORTRAN 
sequence number 001. If the member has the 
name MEMBER1 and resides in the cataloged 
partitioned data set named PDS, the DD 
statement that must be supplied is: 


//¥FT02F001 DD DSN=PDS(MEMBER1), 
LABEL=(,,,IN) , DISP=OLD 


When the REWIND statement is executed, the 
PDS is closed for MEMBERI. The next READ 
statement reopens the data set for another 
PDS member. If the next member name is 
MEMBERS, the DD statement that must be sup- 
plied is: 


//¥T03F001 DD DSN=PDS(MEMBERS), 
LABEL=(,,, IN), DISP=OLD 


The following example illustrates the use 
of the REWIND statement for the writing of 
two PDS members: 


INTEGER *4 X(20) 
DO 3 I=1,20 


3 X(D)=I 
WRITE (2,1)X 

1 FORMAT (* *, 20A4) 
REWIND 2 
WRITE (3,1)X 
STOP 
END 


Here, the use of the REWIND statement for 
the data set reference number 2 closes the 
Pps. It is reopened for the next member by 
the reference to data set reference 


number 3. The DD statements that must be 
supplied are the same as those in the pre- 
vious example; however, LABEL=(,,,OUT) must 
be specified to indicate output processing. 


REWIND and BACKSPACE Statements 


The REWIND and BACKSPACE statements 
force execution of positioning operations 
by the control program. 


A REWIND statement instructs the control 
program to position the volume on the 
device so that the next record read or 
written is the first record transmitted for 
that data set reference number on that 
volume, irrespective of data set sequence 
numbers. The space acquired dynamically 
for I/O buffers for a data set is released 
as part of the REWIND operation. For this 
reason, a program that uses many data sets 
may conserve main storage by issuing REWIND 
statements after processing is completed. 
Since a REWIND statement closes the data 
set, any subsequent READ or WRITE statement 
opens the data set again. For a data set 
where DISP=MOD was specified, the READ or 
WRITE statement causes positioning at the 
end of the data set before the statement is 
executed. 


The BACKSPACE statement causes a 
backward skip of one logical record for 
each BACKSPACE issued. The records may be 
blocked or unblocked and of any valid type 
(F,U,V). Note that the default selection 
for FORTRAN data sets is U-type (undefined) 
records which can not be blocked. If a 
BACKSPACE statement requests backward move- 
ment past the load point or first record of 
the data set, that request is ignored. 
Since BACKSPACE is not supported across 
reels of a multi-reel data set on tape, a 
BACKSPACE request made under such condi- 
tions is treated as an attempt to move 
backward past the load point. The user is 
not made aware of input/output errors that 
have occurred during a BACKSPACE operation 
until he issues his next READ or WRITE 
request. 


Notes: 


Le REWIND, BACKSPACE or END FILE state- 
ments specified for data sets defined 
in direct-access statements are 
ignored. 


2. $BACKSPACE statements should not be 
directed to the data set defined as 
SYSIN. 


3. At end-of-file, if the programmer 


wishes to access the file, he should 
issue at least two BACKSPACE state- 
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ments. The first statement causes his 
file to be positioned before the tape- 
mark; the second positions the file at 
the beginning of the last logical 
record. 


Error Message Data Set 


When the system is generated, the 
installation assigns a data set reference 
number so that execution error messages and 
information for traceback, DUMPs, and 
PDUMPs can be written ona data set. This 
data set is automatically opened at library 
initialization time. The programmer must 
define a data set, using a DD statement 
with the ddname for that data set reference 
number. This data set should be defined 
using the SYSOUT=A parameter. If the error 
message data set is on tape, the DD state- 
ment should contain DCB parameters for 
BLKSIZE=133 and RECFM=UA. (The System 
Generation publication, Order No. 
GC28-6554, explains the method of assigning 
the data set reference number. See the 
description of the OBJERR parameter in the 
section on the FORTLIB macro instruction.) 


Execution Device Classes 


For load module execution, the program- 
mer can use the same names assigned to 
device classes used by the compiler (shown 
in Table 4). However, additional names for 
specific devices and device classes can be 
assigned by the installation. The program- 
mer can choose which device to use for his 
data sets, and can specify the name of the 
device or class of devices in the UNIT 
parameter of the DD statement. 


The DCB parameter may be specified for 
data sets when a load module is executed. 
For information concerning the DCB parame- 
ter, see the section "Creating Data Sets." 


LOADER_PROCESSING 


The loader combines into one job step 
the functions of the linkage editor with 


o4 


execution of the edited module. It pro- 
cesses FORTRAN object or load modules, 
resolves any references to subprograms, 
loads the module, and executes the loaded 
module. The loader does not produce load 
modules for program libraries. For 
detailed information on the loader, see the 
Linkage Editor and Loader publication. 


Loader Name 


The program name for the loader is 
IEWLDRGO. An alias program name, LOADER, 
has been assigned to the loader for simpler 
programming. If the loader is executed as 
a job step, the parameter PGM=LOADER or 
PGM=IEWLDRGO is used in the EXEC statement 
of that job step. 


Loader Input and Output 


The primary input to the loader is in 
the form of object modules and/or load 
modules. While processing an input module, 
the loader finds any references to subpro- 
grams in the input module and resolves 
them. 


The output of the loader consists of 
error and diagnostic messages and an 
optional storage map of the loaded program. 
The output is written on either an interme- 
diate storage device or a printer. The 
loader does not require intermediate work 
data sets. 


Loader ddnames and Device Classes 


The programmer communicates data set 
information to the loader through DD state- 
ments identified by specific ddnames. 
(These ddnames can be changed during system 
generation.) The ddnames, functions, and 
requirements for data sets are shown in 
Table 11. Only the SYSLIN DD statement is 
required; the other two are optional. In 
addition, any DD statements required for 
execution of the loaded program must be 
included in the job step. (These DD state- 
ments are described in the section “Load 
Module Execution". ) 


eTable 11. Loader ddnames 
| era cae c beter eae 7 
| | | Device 
| ddname | Function [Requirements | 
oS Se ee ee ee ooo 4 
| SYSLIN [Primary input [direct access | 
| |data, normally |magnetic tape | 
| [the output of [card reader | 
| {the compiler. | | 
See SS ee ee 5 ee a ea 
| SYSLIB [Automatic call |direct access | 
| | library | | 
I | (SYS1.FORTLIB) | | 
~-------}---------------- 4--------------4 
|SYSLOUT |Diagnostic | printer | 
| {messages and jintermediate | 
| [storage map. [storage device] 
}---------}--------------—}--------------4 
juser- |Data required any device 


{ 
|specified|for execution | 
| Jof the loaded | 

H 


| | program. 
toe f2 Sas domo eo See 


The device classes used by the compiler 
(see Table 3) must also be used with the 
loader. The dava sets used by the loader 
may be assigned to the device classes 
listed in Table 12. 


eTable 12. Correspondence Between Loader 
ddnames and Device Classes 


ee ea et a Ee ey a ty A ee oe apg tee ey 1 


|ddname |Possible Device Classes | 
| SYSLIN |SYSSQ, SYSDA, or the input | 
| [stream device (specified by DD | 
| |* or DD DATA), or a device spe-| 
| |cified as the card reader. | 
+~~~—-----} -+--------------------- +--+] 
|SYSLIB [SYSDA | 
aoe a oe oe ae 4 


+ 
|SYSPRINT |A, SYSSQ | 


+ 
| user- [SYSDA, SYSSQ { 
|specified| | 
bose a a eo I J 


Loader Priority 


If modules with the same name appear in 
the input to the loader, the loader accepts 
only the first module which appears. 


Options for Loader Processing 


The loader and loaded program options 
are specified in the PARM field of the EXEC 
statement as follows: 


PARM = ( \MAP , CALL 
PARM. procstep NOMAP( ),NOCALL 














LET , SIZE=100K/ 
, NOLET ,SIZE=size\ 


) 





{,EP=name] ), PRINT 
, NOPRINT 





MAP or NOMAP 


The MAP option informs the loader to 
produce a map of the loaded program; this 
map lists external names and their absolute 
storage addresses on the data set specified 
by the SYSLOUT DD statement. (If the 
SYSLOUT DD statement is not used in the 
input deck, this option is ignored.) The 
NOMAP option specifies that the map of the 
loaded program is not to be written. 


CALL or NOCALL or NCAL 


The CALL option specifies that an auto- 
matic search of the data set specified on 
the SYSLIB DD statement is to be made. (If 
the SYSLIB DD statement is not in the input 
deck, this option is ignored.) The NOCALL 
or NCAL option specifies that an automatic 
search of the SYSLIB data set is not to be 
made. 


LET or NOLET 


The LET option informs the loader to try 
to execute the object program even though a 
severity 2 error condition is found. (A 
severity 2 error condition is one that 
could make execution of the loaded program 
impossible.) The NOLET option informs the 
loader not to try to execute the loaded 
program when a severity 2 error condition 
is found. 


SIZE=size 


The SIZE option specifies the size, in 
bytes, of dynamic main storage that can he 
used by the loader. The size of the pro- 
gram to be loaded must be included in this 
figure. 
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EP=name 


The EP option specifies the external 
name to be assigned as the entry point of 
the loaded program. 


PRINT or NOPRINT 


The PRINT option informs the loader to 
produce diagnostic messages on the SYSLOUT 
data set. The NOPRINT option informs the 
loader not to produce diagnostic messages 
on the SYSLOUT data set; SYSLOUT will not 


be opened. 
Note: The default options are: NOMAP, 
CALL, NOLET, SIZE=100K, and PRINT. Other 


default options, however, can be specified 
with the LOADER macro instruction during 
system generation. 


The following are examples of the EXEC 
statement specified for loader processing: 


//LOAD EXEC PGM=LOADER 

//LOAD EXEC PGM=IEWLDRGO, PARM=(MAP, x 
// *EP=FIRST" ) 

//LOAD EXEC PGM=IEWLDRGO, PARM=(MAP, LET) 
//LOAD EXEC PGM=LOADER, PARM=NOPRINT 


Programming Example 


Figure 29 shows the control statements 
used in a job invoking the loader. Two 
subprograms, SUB1 and SUB2, and a main pro- 
gram, MAIN, are compiled in separate job 
steps. In addition to the FORTRAN library, 
a private library, MYLIB, is used to 
resolve external references. Each of the 
object modules is placed in a sequential 
data set by the compiler and passed to the 
loader step. 


It should be noted that cataloged proce- 
dures are not used in this job. The pri- 
vate library, MYLIB, is concatenated with 
the SYSLIB DD statement. SUB1 and SUB2 are 
included in the program to be loaded by 
concatenating them with the SYSLIN DD 
statement. The loaded program requires the 
FTO1FO01 and FT10FO01 DD statements for 
execution. 
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| //JOBX JOB | 
|/7/STEP1 EXEC PGM=IEKAAOO, X| 
\// PARM=*" NAME=MAIN, LOAD* { 
| . | 
| : | 
|//SYSLIN DD DSNAME=&GOFILE, X| 
|77 DISP=(,PASS), X| 
[47 UNIT=SYSSQ | 
|7/SYSIN DD * { 
| Source Module for MAIN | 
|/* | 
|//STEP2 EXEC PGM=IEKAAOO, X| 
|/7 PARM=* NAME=SUB1, LOAD* | 
7 | 
| | 
|4/SYSLIN DD DSNAME=&SUBPROG1, X| 
|7/ DISP=(,PASS) , x] 
|47 UNIT=SYSSQ | 
| //SYSIN DD * { 
| Source Module for SUB1 | 
| 7+ | 
|//7STEP3 EXEC PGM=IEKAAOO, X| 
|77 PARM=* NAME=SUB2, LOAD* | 
| : | 
| ; | 
|//SYSLIN DD  DSNAME=ESUBPROG2, X| 
|77 DISP=(,PASS), x| 
|/7 UNIT=SYSSQ | 
|//SYSIN DD * l 
| Source Module for SUB2 | 
| /* | 
|//STEP4 EXEC PGM=LOADER | 
|7/SYSLOUT DD SYSOUT=A l 
|7/SYSLIB DD DSNAME=SYS1.FORTLIB, x| 
|7/ DISP=OLD | 
|47 DD DSNAME=MYLIB, DISP=OLD | 
|7/SYSLIN DD DSNAME=*.STEP1.SYSLIN, X| 
|/7 DISP=OLD | 
177 DD DSNAME=*.STEP2.SYSLIN, X{ 
|/7 DISP=OLD | 
{77 DD DSNAME=*.STEP3.SYSLIN, X| 
|// DISP=OLD | 
|77FTO1F001 DD DSNAME=PARAMS, DISP=OLD | 
|7/FT10F001 DD SYSOUT=A | 
|/+ | 
besa Sosa Se esse be See ee eee ce. J 


eFigure 29. Loader Example 


DEDICATED WORK DATA SETS 





Under MVT, installations can provide 
preallocated or dedicated work data sets. 
If an installation has provided these data 
sets, the programmer can use them as an 
alternative to creating his work data sets. 
Use of dedicated work data sets is more 
efficient than creating work data sets by 
specifying a disposition of NEW,DELETE on 
the work data set DD statement. 
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The system allocates these data sets at 
start initiator time (when input/output 
device requirements for a job step are ana- 
lyzed by the system). The number of data 
sets to be allocated is based on the number 
of work data set DD statements in a cata- 
loged procedure known as the initiator pro- 
cedure. The initiator procedure is supp- 
lied by IBM, and can be modified or rewrit- 
ten by the installation. 


To use a dedicated work data set, 
DSNAME=&&name or DSNAME=éname must be coded 
on a DD statement along with all other 
parameters used to define a new data set 
(see Figure 31). Every DD statement in a 
job with a "name" identical to a ddname on 
a DD statement in the initiator procedure 
is assigned the corresponding dedicated 
data set. If the system cannot assign this 
dedicated data set, it uses the parameters 
coded on the DD statement to create a tem- 
porary data set. 


Note: 
files. 


This facility does not support tape 


The following rules apply to the parame- 
ters of DD statements associated with dedi- 
cated work data sets: 


1. DSNAME -- The temporary name from the 
initiator procedure replaces that spe- 
cified in the DD statement. 


2. DISP -- The disposition specification 
cannot cause deletion of a dedicated 
work data set. Disposition will 
appear to allocation as OLD, KEEP or 
OLD, PASS, only. 


3. UNIT -- Specification of UNIT=AFF= 
DDNAME and DEFER on DD statements are 
ignored if they apply to dedicated 
work data sets. 


4. VOLUME -- Volume information on the DD 
statement is overridden by the volume 
information in the initiator proce- 
dure. A specification of REF=*. 
stepname.ddname is not valid since the 
initiator procedure may contain only 
one step. 


5. EXPDT/RETPD ~- Expiration date or 
retention is ignored if it is speci- 
fied on the DD statement. 


6. SUBALLOC=stepname.ddname must not be 
specified since the initiator may con- 
tain only one job step. A specifica- 
tion of RLSE will be ignored. All 
other space parameters are allowed. 


Note: The units, primary space, secondary 
space, and directory quantities on the DD 
statement are compared with those in the 
dedicated data set. The data set will be 
assigned as long as it is equal to or 
greater than the parameter specified. 


7. DCB -- Information specified in the 
DCB parameter overrides the DCB speci- 
fication in the initiator procedure. 


For detailed information on 
pre-allocated or dedicated data sets, see 
the chapter “System Reader, Initiator and 
Writer Cataloged Procedures" in the System 


Programmer's Guide publication. 
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CREATING DATA SETS 


Data sets are created by specifying 
parameters in the DD statement or by using 
a data set utility program. This section 
discusses the use of the DD statement to 
create data sets. (The Utilities publica- 
tion, Order No. GC28-6586, discusses data 
set utility programs.) No consideration is 
given to optimizing I/O operations; this 
information is given in the section "Pro- 
gram Optimization." 


To create data sets, the DSNAME, UNIT, 
VOLUME, SPACE, LABEL, DISP, SYSOUT, and DCB 
parameters are of special significance (see 
Figure 31). These parameters specify: 


DSNAME - name of the data set 


UNIT - class and number of devices 
used for the data set 






VOLUME - volume on which the data set 
resides 

LABEL ~ label specification 

DISP - the disposition of the data set 


after the completion of the job 
step 


SYSOUT - ultimate device for unit record 


DCB - 


data sets 


tape density, record format, 
record length 


Examples of DD statements used to create 
data sets are shown in Figure 30. 


Sample Coding Form 
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Figure 30. Examples of DD Statements 
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: dsname 
\ eee dsname(element) | | 
DSN f j&name 
| &name(element) \ 
DUMMY 
DDNAME=ddname 





UNIT=(name[ , {n]P}1])2 
>SER=(volume-serial-number[ , volume-serial-number]...)°9 


‘ ‘dsname 
VOLUME( =({PRIVATE ][ RETAINI[ ,volume-sequence-number][ ,volume-count] »REF= \«. ddname / i 
VOL j j-Stepnane. ddname 

© stepname. procs tep.ddname | 


y TRK 
SEE yet 


MXIG 5 
»(primary-quanti ty[ ,secondary-quantity][,di - i ; 
averse petaMi IGT P y-q yL y-quantity][,directory-quanti ty])[,RLSE] ie [ ,ROUND]©) 7 


rt [2a] sEXPDT=yyddd], , 
LABEL=([data-set-sequence- nue} i ai [PASSWORD] |, OUT] [,RETPD=xxxx |? 


SYSOUT=A 
SYSOUT=B 
SYSOUT=(X[ ,program-name][ ,form-no. ]) 


,DELETE |° [DELETE 
Vat ,KEEP »KEEP 
pisp=() OLD) pass sCATLG | )7 
sCATLG ,UNCATLG 


IShe ,UNCATLG 


ds name 0, 
nep=( |*-ddname aL it \E | ‘ ie {FLU} TAIMJ[TI[,BLKSIZE=xxxxx] 
~* es tepname .ddname ? [2h RIES ,BUFNO=| | [ ,OPTCD=C]} ,RECFM=9 FBLAIM][T],LRECL=xxxx,BLKSIZE=xxxxx { ya 
hc Fenian oyeee taneddihie 3 li VESIJEBILAIMJ[T],LRECL=xxxxx,BLKSIZE=xxxxx 


»BLKSIZE=xxxx 12 





3If neither "n" nor "P" is specified, 1 is assumed. 

2I1f only "name" is specified, the delimiting parentheses may be omitted. 

3If only one "volume-serial-number" is specified, the delimiting parentheses may be omitted. 

4SER and REF are keyword subparameters; the remaining subparameters are positional subparameters. 
SThe assumption made when this subparameter is omitted is discussed with the SPACE parameter. 
6ROUND can be specified only if “average-record-length" is specified for the first subparameter. 
7A11 subparameters are positional subparameters. 

SEXPDT and RETPO are keyword subparameters; the remaining subparameters are positional subparameters. 
9The assumption made when this subparameter is omitted is discussed in "Job Control Language." 
10BUFNO is the only DCB subparameter that should be specified for direct access data sets. 

11The first subparameter is positional; all other subparameters are keyword subparameters . 

12This form is used only with compiler and linkage editor blocked input and output. 














SETS 


Data sets that are referred to in 
FORTRAN direct-access input/output state- 
ments must first be defined in the DEFINE 
FILE statement. However, the DD statement 
may be used in conjunction with the DEFINE 
FILE statement for designating other char- 
acteristics of the data set. 


If the user chooses to exercise this 
option, caution must be taken in specifying 
the parameters in the DD statement (Figure 
31). The DUMMY parameter may not be used 
with FORTRAN defined direct-access data 
sets because of a conflict in specifica- 
tions. The remaining parameters of the DD 
statement must conform to the specifica- 
tions in the DEFINE FILE statement. The 
DEN and TRTCH subparameters of the DCB 
parameter apply only to data sets residing 
on magnetic tape volumes; consequently, 
their use with FORTRAN defined direct- 
access data sets may also produce a 
conflict. 


The following statements illustrate the 
possible conflicts that may arise between 
the DEFINE FILE and DD statements. 

DEFINE FILE 2(50,100,E,12) 


//¥FT02F001 DD DSNAME=BOOL, DISP=(NEW, CATLG) 1 


/ LABEL=(, SL) , UNIT=SYSDA, 2 
/ VOLUME= (PRIVATE, RETAIN), 3 
Wa SPACE=(100, (50, 30),,CONTIG), 4 
Mt DCB=(DEN=1, RECFM=F, BLKSIZE=100) 


The SPACE parameter must be included for 
all direct-access data sets, but it must 
also conform to the DEFINE FILE statement; 
the record length in both statements must 
be the same. In the DCB parameter, the 
subparameter DEN applies only to data sets 
residing on magnetic tape volumes. If the 
DUMMY parameter is specified in a DD state- 
ment for a direct-access data set, the con- 
flict arises because the disposition of a 
direct-access data set is always checked 
and a dummy data set has no disposition. 


Note: The name field of the DD statement 
must contain FTxxF001, where xx is the data 
set reference number specified in the 
DEFINE FILE statement. 


DATA SET NAME 


The DSNAME parameter specifies the name 
of the data set. Only four forms of the 
DSNAME parameter are used to create data 
sets. 
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DSNAME=ds name 

DSNAME=dsname (element) 
specify names for data sets that are 
created for permanent use. 


Note: Members of a partitioned data- 
set may be read as input to a FORTRAN 
object program or created as output 
from a FORTRAN object program, but 
only if the member name and either 
LABEL = (,,,IN) or LABEL = (,,,OUT) 
are specified in an associated DD 
statement. 


DSNAME= name l 

DSNAME= name (element)| 
specify data sets that are temporarily 
created for the execution of a single 
job or job step. 


DUMMY 
is specified in the DD statement to 
inhibit I/O operations specified for 
the data set. A WRITE statement is 
recognized, but no data is trans- 
mitted. (When the programmer speci- 
fies DUMMY in a DD statement used to 
override a cataloged procedure, all 
parameters in the cataloged DD state- 
ment are overridden.) 


Note: A DUMMY data set should only be 
read if the "END= " option is speci- 
fied in the FORTRAN READ statement. 

If the option is not specified, a read 
causes an end of data set condition, 
and termination of execution of the 
load module. 


DDNAME=ddname 
indicates a DUMMY data set that will 
assume the characteristics specified 
in a following DD statement "“ddname”. 
The DD statement identified by 
"ddname" then loses its identity; that 
is, it cannot be referred to by an 
*....ddname parameter, The statement 
in which the DDNAME parameter appears 
may be referenced by subsequent 
*....ddname parameters. If a subse- 
quent statement identified by “*ddname" 
does not appear, the data set defined 
by the DD statement containing the 
DDNAME parameter is assumed to be an 
unused statement. The DDNAME parame- 
ter can be used five times in any 
given job step or procedure step, but 
no two uses can refer to the same 
*"ddname". The DDNAME parameter is 
used mainly for cataloged procedures. 


SPECIFYING INPUT/OUTPUT DEVICES 


The name and number of input/output 
devices are specified in the UNIT 
parameter, 


UNIT=(name[, {n|P}] ) 


name 
is given to the input/output device 
when the system is generated. 


n[P 
specifies the number of devices allo- 
cated to the data set. If a number 
"n" is specified, the operating system 
assigns that number of devices to the 
data set. "P" is used with cataloged 
data sets when the required number of 
volumes is unknown. The control pro- 
gram assigns a device for each volume 
required by the data set. 


Note: See Appendix F for a list of input/ 
output unit types. 


SPECIFYING VOLUMES 


The programmer indicates the volumes 
used for the data set in the VOLUME 
parameter. 


VOLUME=( [PRIVATE] [, RETAIN] 
[, volume-sequence-number ] 
{, volume-count]) 


» SER= (volume-serial-number 
(, volume~serial-number]...) 


dsname 

, REF= )*, ddname ) 
*, stepname. ddname 
*,stepname. procstep. ddname 


identifies the volume(s) assigned to 
the data set. 


PRIVATE 
indicates that the assigned volume is 
to contain only the data set defined 
by this DD statement. PRIVATE is 
overridden when the DD statement for a 
data set requests the use of the pri- 
vate volume with the SER or REF sub- 
parameter. The volume is demounted 
after its last use in the job step, 
unless RETAIN is specified. 


RETAIN 
indicates that this volume is to 
remain mounted after the job step is 
completed. Volumes are retained so 
that data may be transmitted to or 
from the data set, or so that other 
data sets may reside on the volume. 
If the data set requires more than one 
volume, only the last volume is 


retained; the other volumes are 
demounted when the end of volume is 
reached. If each job step issues a 
RETAIN for the volume, the retained 
Status lapses when execution of the 
job is completed. 


volume~sequence-number 

is a 1- to 4-digit decimal number that 
specifies the sequence number of the 
first volume of the data set that is 
read or written. The volume sequence 
number is meaningful only if the data 
set is cataloged and volumes lower in 
sequence are omitted. 


volume~count 
specifies the number of volumes 
required by the data set. Unless the 
SER or REF subparameter is used, this 
subparameter is required for every 
multi-volume output data set. 


SER 
specifies one or more serial numbers 
for the volumes required by the data 
sets. A volume serial number consists 
of one to six alphameric characters. 
If it contains less than six charac- 
ters, the serial number is left- 
adjusted and padded with blanks. If 
SER is not specified, and DISP is not 
specified as NEW, the data set is 
assumed to be cataloged and serial 
numbers are retrieved from the cata- 
log, or inherited from passed data 
sets in a previous step. A volume 
serial number is not required for new 
output data sets. 


REF 
indicates that the data set is to 
occupy the same volume(s) as the data 
set identified by “dsname", 
"*,ddname", “*.stepname.ddname", or 
*.stepname.procstep.ddname. Table 13 
shows the data set references. 


When the data set resides on a tape 
volume and REF is specified, the data set 
is placed on the same volume, behind the 
data set referred to by this subparameter. 
If this subparameter is used, the UNIT 
parameter, if specified, is ignored. 


If SER or REF is not specified, the con- 
trol program allocates any non-private 
volume that is available. 
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Table 13. Data Set References 

cae aciccleri al ice aie ace 5 apnea anand ara | 
| Option ] Refers to I 
|REF=dsname ja data set named | 
| | "dsname" | 
REF=*, ddname ja data set indicat- 


l | 
t [ed by DD statement | 
| |"ddname* in the | 
| [current job step | 
| REF=*,stepname.ddnameja data set indicat-| 
| Jed by DD statement | 
| |"ddname" in the | 
| {previous job step | 
| | "stepname” | 
}--—--—------—-------- 4------——------------ : 
|REF=*.stepname. {a data set indicat-| 
| procstep.ddname|ed by DD statement | 
| |"ddname" in the i] 
l [procedure step | 
| | “procstep" invoked | 
| {in the previous job| 
| [step “stepname" 
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SPECIFYING SPACE ON DIRECT-ACCESS VOLUMES 


—_—_—S SO 


The programmer indicates the amount of 
space for a data set in the SPACE 
parameter. 


TRK 
SPACE= ((CYL 

average-record-length 

» (primary-quantity 

(, secondary-quantity] 

{,directory-quantity]) 
; MXIG 

{,RLSE] |, ALX {, ROUND] ) 
, CONTIG 


The SPACE parameter specifies: 


1. Units of measurement in which space is 
allocated. 


2. Amount of space allocated. 
3. Whether unused space can be released. 


4, In what format space is allocated. 


TRK 

CYL 

eee 
specifies the units of measurement in 
which storage is assigned. The units 
may be tracks (TRK), cylinders (CYL), 
or records (average record length in 
bytes expressed as a decimal number 
less than or equal to 65,535). 
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(primary-quantity [,secondary-quantity] 

(directory-quantity]) 
specifies the amount of space allo- 
cated for the data set. The “primary 
quantity" indicates the number of 
records, tracks, or cylinders to be 
allocated when the job step begins. 
The "secondary quantity" indicates how 
much space is to be allocated each 
time previously allocated space is 
exhausted. (Note: The maximum number 
of times secondary allocation will be 
made is 15.) 


For example, by specifying: 
SPACE= (120, (400,100) ) 


space is reserved for 400 records; the 
average record length is 120 charac- 
ters. Each time space is exhausted, 
space for 100 additional records is 
allocated. 


The "directory quantity" is used only 
in writing a PDS; it specifies the 
number of 256-byte blocks to reserve 
for the PDS directory. 


By specifying: 
SPACE=(CYL, (20, 2,5)) 


20 cylinders are allocated to the data 
set. When previously allocated space 
is exhausted, two additional cylinders 
are allocated. Furthermore, space is 
reserved for five 256-byte blocks in 
the directory of a PDS. 


Note: When the FORTRAN programmer 
uses a direct-access data set, he must 
allocate space on the direct-access 
volume in two places: the DEFINE FILE 
statement in the source module and a 
DD statement at load module execution. 
He must also make certain that the DD 
statement SPACE parameter contains an 
adequate SPACE allocation, based on 
the value specified in the DEFINE FILE 
statement. 


RLSE 
indicates that all unused external 
storage assigned to a data set is to 
be released when the data set is 
closed in a job step. 


Note: The RLSE subparameter is 
ignored for any file for which END 
FILE is specified, or for which a 
BACKSPACE statement is issued. 


MXIG 
ALX 
CONTIG 


specify the format of the space allo- 





cated to the data set, as requested in 
the “primary quantity". 


MXIG 
requests the largest single block of 
contiguous storage that is greater 
than or equal to the space requested 
in the “primary quantity". 


ALX 

requests all available storage on the 
volume as long as there is at least as 
much space as specified in the “pri- 
mary quantity". The operating system 
must be able to allocate at least the 
amount specified as the “primary quan- 
tity" by using, at most, five noncon- 
tiguous areas of storage. 


CONTIG 
requests that the space indicated in 
the “primary quantity" be contiguous. 


If the subparameter is not specified, 
or if any option cannot be fulfilled, 
the operating system attempts to 
assign contiguous space. If there is 
not enough contiguous space, up to 
five noncontiguous areas are 
allocated. 


ROUND 
indicates that allocation of space for 
the specified number of records is to 
begin and end on a cylinder boundary. 


Note: If a data set might be written on a 
direct access volume, the SPACE parameter 
must be specified in the DD statement. 





LABEL INFORMATION 


The label parameter (LABEL) is used to 
specify the type and contents of a data set 
label. 


7NL 
LABEL= ([data-~set-sequence~number] <, SL 


, BLP 
,OU 7 EXPDT=yyddd 
{, PASSWORD] IN RETPD=xxxx |) 


data-set-sequence-number 
is a 4-digit number that identifies 
the relative location of the data set 
with respect to the first data set on 
a tape volume. (For example, if there 
are three data sets on a magnetic tape 
volume, the third data set is identi- 
fied by data set sequence number 3.) 
If the data set sequence number is not 
specified, the operating system 
assumes 1. 


NL 
SL 
BLP 


specifies data set label information. 
SL indicates standard labels. NL 
indicates no labels (applicable only 
to data sets residing on a tape 
volume). BLP indicates that label 
processing should be bypassed. 


The feature that allows bypassing of 
label processing is a system genera~ 
tion option (OPTIONS=BYLABEL). If 
this option has not been specified and 
BLP is coded, the system assumes NL. 


PASSWORD 
is used to secure a data set from 
unauthorized access. The operating 
system assigns security protection to 
the data set. Subsequently, whenever 
the data set is retrieved, the opera- 
tor must respond to a message by issu- 
ing the correct password. Detailed 
information on the use of the PASSWORD 
subparameter can be found in the Job 


Control Language and the Data Manage- 


ment_and Supervisor Services publica- 
tions. Note that prudence should be 


exercised in specifying this option; 
indiscriminate use of PASSWORD can 
result in operation inefficiencies. 


OUT 
Irs 

The subparameters IN, OUT are used to 
control data sets that are to be processed 
as input or output only. Thus a form of 
read/write protection is offered by these 
parameters. 


For input data sets, the IN subparameter 
allows: 


® Access to members of a partitioned data 
set (for read purposes only). 


* A means of avoiding operator interven- 
tion when reading a data set that is 
protected by either a high expiration 
date or by the absence of the write 
ring (file-protected tape). 


For output data sets, the OUT subparam- 
eter allows a member of a partitioned data 
set to be creatad. 


In 
specifies that the data set is to be 
processed for input only. IN will be 
recognized only if the first input/ 
output operation specifying the data 
set is a READ. If the first operation 
is not READ, the IN subparameter has 
no effect and both READ/WRITE opera- 
tions are allowed. When the first 
operation is a READ, any subsequent 
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WRITE issued to the data set will be 
treated as an error, and the job will 
be terminated. Additionally, the 
specification of IN permits the read- 
ing of a password-protected data set 
(if the correct password is supplied) 
and avoids the need of operator inter- 
vention when reading a data set pro- 
tected by either a high expiration 
date or the absence of a write-ring. 


OUT 
specifies that the data set defined by 
the DD statement is to be processed 
for output only. OUT will be recog- 
nized only if the first input/output 
operation specifying the data set is a 
WRITE. If the first operation is not 
WRITE, the OUT subparameter has no 
effect and both READ/WRITE operations 
are allowed. However, the creation of 
a member of a partitioned data set is 
not allowed when the first operation 
is READ, even though the OUT subparan- 
eter was specified. When the first 
operation is a WRITE, any subsequent 
READ issued to the data set will be 
treated as an error, and the job will 
be terminated. OUT must be specified 
to create a member of a partitioned 
data set. 


eo 

RETPD=xxxx 
specifies how long the data set shall 
exist. The expiration date, EXPDT= 
yyddd, indicates the year (yy) and the 
day (ddd) the data set can be deleted. 
The period of retention, RETPD=xxxx, 
indicates the period of time, in days, 
that the data set is to be retained. 
X£ neither is specified, the retention 
period is assumed to be zero. 


DISPOSITION OF A DATA SET 


The disposition of a data set is speci- 
fied by the DISP parameter; see "Data 
Definition (DD) Statement". The same 
options are used for both creating data 
sets and retrieving previously created data 
sets. When a data set is created, the sub- 
parameters used are NEW, MOD, KEEP, PASS, 
and CATLG. 


WRITING A UNIT RECORD DATA SET ON AN 
INTERMEDIATE DEVICE 





With the SYSOUT parameter, output data 
sets can be routed to a system output 
stream and handled much the same as system 
messages. 
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SYSOUT=A 
can be used with sequential schedulers 
to indicate that the data set is to be 
written on the system output device. 
No parameter other than the DCB param- 
eter has any meaning when SYSOUT=A is 


used. This form of the SYSOUT parame- 
ter may be specified for printer data 
sets. 

SYSOUT=B 


can be used with sequential schedulers 
to indicate the system card punch 
unit. The priority scheduler routes 
the output data set to class B. 


SYSOUT=(x[,program-name] [,form-number]) 
indicates that the data set is normal- 
ly written on an intermediate direct 
access device during program execu- 
tion, and later routed through an out- 
put stream to a system output device. 
The “x" is to be replaced by an alpha- 
betic or numeric character that speci- 
fies the system output class to be 
used. Output writers route data from 
the output classes to system output 
devices. The DD statement for this 
data set can also include a wnit 
specification that describes the 
intermediate direct access device and 
an estimate of the space required. If 
these parameters are omitted, the job 
scheduler provides default values as 
the job is read and processed. 


If there is a special installation 
program to handle output operations, 
its “program-name" should be speci- 
fied. “Program-name" is the member 
name of the program, which must reside 
in the system library. 


If the output data set is to be 
printed or punched on a specific type 
of output form, a four-digit “form 
number" should be specified. This 
form number is used to instruct the 
operator, in a message issued at the 
time the data set is to be printed, of 
the form to be used. 


Note: If the DEN subparameter is explicit- 
ly specified for SYSOUT data sets, only 
DEN=2 is allowed in the DCB parameter. In 
addition, TRTCH=C must be specified in the 
DCB parameter, when the SYSOUT data set (1) 
is written on 7-track tape and (2) is con- 
posed of variable-length records or con- 
tains binary information. 


DCB PARAMETER 


For load module execution, the FORTRAN 
programmer may specify record formats and 


record lengths for sequentially organized 
data sets that reside on magnetic tape or 
direct access volumes. The DCB information 
is placed in the labels for these data 
sets. 


dsname 
DCB= (| *. ddname 
*, stepname. ddname 
*, stepname. procstep. ddname 


{, DEN={0[1]2]33){, TRICH={C|E|T|ET#] 
[, BUFNO={1| 23], OPTCD=C] 


(EVO ys iel (i ly Sune iZe seen! l 
» RECFM= /FBLA|M] (T], LRECL=xxxx, BLKSIZE=xxxx, 
V{S](B) CA[M) (T], LRECL=xxxx, 

BLKSIZE=xxxx 


, BLKSIZE=xxxx 


REFERRING TO PREVIOUSLY SPECIFIED DCB 
INFORMATION 


The first subparameter 


dsname 

*, ddname 

*.stepname. ddname 
*.stepname. procstep. ddname 


is used to copy DCB information from the 
data set label of a cataloged data set or 
from a preceding DD statement. The copied 
information is used for processing the data 
set defined by the DD statement in which 
the subparameter appears. Any subparame- 
ters that follow this subparameter override 
any copied DCB subparameters. 


dsname 
indicates that the DCB subparameters 
of a cataloged data set “dsname" are 
copied. The data set indicated by 
"dsname" must be currently mounted and 
it must reside on a direct access 
volume. 


*,. ddname 
indicates that the DCB subparameters 
in a preceding DD statement "“ddname" 
in the current job step are copied. 


*,. stepname. ddname 
indicates that the DCB subparameters 
in a DD statement "“ddname" that occurs 
in a previous job step “stepname"™ in 
the current job are copied. 


*,stepname. procstep. ddname 
indicates that the DCB subparameters 
in the DD statement “ddname" are 
copied from a previous step “procstep" 
in a cataloged procedure. The proce- 


dure was invoked by the EXEC statement 
"stepname”™ in the current job. 


DENSITY AND CONVERSION 


The second subparameter indicates the 
density and conversion for data sets resid- 
ing on magnetic tape volumes. 


DENSITY: Density is specified for data 
sets residing on any magnetic tape volume. 


DEN={0]1]2[3} 
indicates the density used to write a 
data set (see Table 14). 


Table 14. DEN Values 

er rie ee CR RS a 1 
| [Tape Recording Density (bits/inch) | 
| DEN }---------~-~---~~-------~---------+- 4 
[Value | Model 2400 | 
| }----------------- qo---------------- : 
| | 7-Track | 9-Track | 
}-----4----------------- }-------—--------- { 
| o | 200 | 7 | 
} 1 | 556 | ae | 
| 2 | 800 | 800 | 
}; 3 4 - | 1600 | 
bo a IA aes eee OS he Ste ee 4 


If DEN is not specified, 800 bits per inch 
is assumed. 


CONVERSION: Conversion is used only for 
data sets residing on 7-track tape volumes. 


TRICH={C|E|[T|ET} 
indicates which conversion type is 
used: 


Cc - data conversion feature is 
used 


even parity is used 


T - translation from BCD to EBCDIC 
is required 


even parity is used and trans- 


lation from BCD to EBCDIC is 
required. 


NUMBER OF BUFFERS FOR SEQUENTIAL DATA SETS 


The number of buffers required to read 
or write any data set is specified by 
BUFNO=x 


where x=1 or 2 
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CHAINED SCHEDULING 


Chained scheduling may be requested by 
specifying OPTCD=C as a DCB subparameter in 
the DD statement. Although chained sched- 
uling is not used for direct-access I/0 
itself, it does produce faster formatting 
of direct-access data sets. Note that when 
chained scheduling is specified, the system 
makes use of about 2K additional bytes of 
main storage to provide the feature. 


RECORD FORMAT 


Formatted Control Unformatted Control 


RECFM=V(B][A|[MI] [TIS 


ecknevto) {TI {si 
RECFM=F(BI(A|MI(TI[S] 


| RECFM=VS (B] [A{M] (T) 
] 


The characters U, V, F, B, and S 
represent 


U - undefined records (records that do 
not conform to either the fixed- 
length or variable-length format) 

V - variable-length records (records 
whose length can vary throughout the 
data set) 

F ~ fixed-length records (records whose 
length is constant throughout the 
data set) 

B - blocked records 

S - for fixed-length records, the 
records are written as standard 
blocks, i.e., no truncated blocks or 
unfilled tracks within the data set, 
with the exception of the last block 
or track. 

S - for variable-length records, a 
record may span more than one block. 


The character A indicates the use of the 
extended American National Standard car- 
riage control characters (see Appendix E); 
the character M indicates the use of 
machine code control characters. 


Note: If A is not specified (or assumed), 
a carriage control character is treated as 
data and written. Single spacing is 
provided. 


The character T specifies the use of the 
track overflow feature. Use of this fea- 
ture results in more efficient utilization 
of track capacity and allows records to be 
written when the specified block size 
exceeds track size. RECFM subparameter 
specifications, and the type of processing 
each is associated with, follow: 


RECFM=UT 
Formatted Sequential I/0 
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RECFM=VT 
Formatted Sequential I/0 


RECFM=VST 
Unformatted Sequential I/0 


RECFM=FT 
Direct Access I/O or Formatted Sequen- 
tial I/0 


Note that backspacing is not allowed when 
track overflow is specified. Therefore, a 
FORTRAN program using the track overflow 
feature may not contain the BACKSPACE 
statement. 


RECORD LENGTH, BUFFER LENGTH, AND BLOCK 
LENGTH 


For blocked records used by the compiler 
or linkage editor, the length of a block is 
specified by the buffer length which is 
specified by 


BLKSIZE=xxxx 


where xxxx is a multiple of the record 
length. 


The record length (LRECL) is permanently 
specified by the compiler or linkage 
editor. 


The SYSPRINT data set of the (G) 
compiler has a record length of 120 bytes 
(including the carriage control byte); the 
SYSPRINT data set of the (H) Compiler has a 
record length of 137 bytes. The SYSIN, 
SYSPUNCH, and SYSLIN data sets have a 
record length of 80 bytes. 


For unblocked records used by the com- 
piler or linkage editor, the programmer 
should set BLKSIZE equal to record length 
except for the FORTRAN IV (H) SYSPRINT data 
set, which has a record length of 141 
bytes. 


For unblocked fixed-length records or 
undefined records used during load module 
execution, the record length and the buffer 
length are specified by 

BLKSIZE=xxxx 


For unblocked variable-length records, 
the record length is specified by 


LRECL=xxxx 
buffer length is specified by 


BLKSI ZE=xxxx 
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* Table 15. i oaibae acer Made by the FORTRAN Programmer for Record Types and Blocking 
GN ee ey ep yaaa ar a ri ap cma i aa at aca aaa aaa a 1 
| {Blocked or| | RECFM | | 
| Step {Unblocked | Record Type | Specification | Record Length | Buffer Length | 

—~-------- 4---------- 4{---------------- 4--------------- 4---------------}--------------- { 
[Compiler or|Unblocked |Fixed-Length Jnot specified |not specified* |BLKSIZE=record | 
| Linkage | | | | |length | 
JEditor = }---~~—---~-+4-----—----------- 4—-~----~—-------- 4--~--------~-—---—+4-----------+--- j 
| | Blocked |Fixed-Length [not specified |not specified? |BLKSIZE=xxxx | 
|----------- 4----------}------~--------- 4---------------4--------------- 4--------------- 4 
| ‘ { | Fixed-Length | RECFM=F2 | BLKSIZE=xxxx? | | 
| | }-----~--~=------ 4--------------- 4---~----------- { | 
| [Unblocked |Variable-Length |RECFM=V | LRECL=xxxx | | 
| | |~~--------------4---------------4--------------- 4 | 
( | |Variable-Length |RECFM=vs | LRECL=xxxx | t 
| Spanned | : | 
[Load Module | Undefined | RECFM=U | BLKSIZE=xxxx | BLKSIZE=xxxx | 
[Execution  }----~------ 4+----—--------~--- 4--—----—------~—-- 4$--------------- 4 | 
{ | |Fixed-Length | RECFM=FB | | | 
| fo Ree een fo 4 LRECL=xxxx | | 
| | Blocked |Variable-Length |RECFM=VB | | | 
| | }------~-------—- 4$--~~---~=--- ~~~ | | 
| | |Variable-Length |RECFM=VSB | | | 
| | | Spanned | | | | 
| | }--—-—~---~------ 4 ---------------4--------------- 4--------------- { 
| | | Undefined {Blocked undefined records are not permitted | 
}----------— footer Pet ho Heo eo oO ee Se ee es 4 


|1Permanently specified by the compiler and cannot be altered (see “DCB Assumptions ] 


| for Load Module Execution"). 


bones specified for direct-access data sets. 


For blocked variable-length or fixed- 
length records used by load modules, the 
record length is specified by 


LRECL=xXxXxx 


block length and buffer length are speci-~ 
fied by 


BLKSIZE=xxxx 
Undefined records cannot be blocked. 


Table 15 is a summary of the specifica- 
tions made by the programmer for record 
types and blocking in FORTRAN processing. 


FORTRAN Records and Logical Records 


In FORTRAN, records for sequential data 
sets are defined by specifications in FOR- 
MAT statements and by READ/WRITE lists. A 
record defined by a specification in a FOR- 
MAT statement is a FORTRAN record (see the 
FORTRAN IV Language publication, Order No. 
GC28-6515). A record defined by a READ/ 
WRITE list is a logical record. Within 
each category, there are three types of 
records: fixed-length, variable-length, 
and undefined. In addition, fixed-length 
and variable-length records can be blocked. 


For unformatted READ and WRITE state- 
ments the logical record, as defined by the 
I/O list, is placed into physical records 
and, if required, the logical record is 
spanned over physical records. When span- 
ning occurs, FORTRAN library routines do 
not split-write an item over the span even 
though there is enough room in the buffer 
to accomodate part of the item. However, 
FORTRAN does provide the ability to read 
items split across segments. 


FORMAT CONTROL 


The following discussion provides infor- 
mation on records written under control of 
a FORMAT statement. 


UNBLOCKED RECORDS: For fixed-length and 
undefined records, the record length and 
buffer length are specified in the BLKSIZE 
subparameter. For variable-length records, 
the record length is specified in the LRECL 
subparameter; the buffer length in the 
BLKSIZE subparameter. The information 
coded in a FORMAT statement indicates the 
FORTRAN record length (in bytes). 


Fixed-Length Records: For unblocked fixed- 
length records written under FORMAT con- 
trol, the FORTRAN record length must not 
exceed BLKSIZE (see Figure 32). 
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Example: Assume BLKSIZE=44 


10 FORMAT(F10.5, 16, 2F12.5, 'SUMS') 
WRITE (20,10) AB, NA, AC, AD 








oe rE SS BLKSIZE i ee 7 
| | 
po > a  SFORTRAN Record — — — — — — — 4 
i = | 
| 44 Bytes of Data 2-1 
Figure 32. FORTRAN Record (FORMAT Control) 


Fixed-Length Specification 


If the FORTRAN record length is less 
than BLKSIZE, the record is padded with 
blanks to fill the remainder of the buffer 
(see Figure 33). The entire buffer is 
written, 


Example: Assume BLKSIZE=56 


5 FORMAT(F10.5,16,F12.5, "TOTAL" J 
WRITE (15, 5) BC, NB, BD 


BLKSIZE 


i re Sein yaw eee ee Week el 

| 
ie —- Ts To COWTitten Record  — a 
}-— — FORTRAN Record — —- | 


| | | 
| 33 Bytes of Data 23 Bytes of Blanks | 


FORTRAN Record (FORMAT Control) 
Fixed-Length Specification and 
FORTRAN Record Length Less Than 
BLKSIZE 





Figure 33. 


Variable-L For unblocked 
variable-length records written under FOR- 
MAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length; and BLKSIZE as four greater than 
LRECL. These extra eight bytes are 
required for the 4-byte block descriptor 
word (BDW) and the 4-byte segment descrip- 
tor word (SDW), as shown in Figure 34. The 
BDW (see Figure 39) contains the length of 
the block; the SDW (see Figure 40) contains 
the length of the record segment, i.se., the 
data length plus four bytes for the SDW. 
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BLKSIZE — ~ = a 





| 

bh ie LRECL aa 
| | 
bop pee Hm FORTRAN Record — = 4 
| | 

\ | 


| | 
I | 


Jowfsow Data | 


Figure 34. FORTRAN Record (FORMAT Control) 
Variable-Length Specification 





If the data length is less than 
(LRECL-4), the unused portion of the buffer 
is not written (see Figure 35). 





— BLKSIZE Sees 





poo me ae tien NS 1 
ra — - — — Written Record — — -- — — a) 
I 
1s LRECL 1 Sate =F 
I | see nie | 
| | HG FORTRAN Record | 
ot y i | 
Bishan athe aS ee ec eae + 
Data Not Written : 


FORTRAN Record (FORMAT Control) 
With Variable-Length 
Specification and the FORTRAN 
Record Length Less Than 
(LRECL-4) 


Figure 35. 


Undefined Records: For undefined records 
written under FORMAT control, BLKSIZE is 
specified as the maximum FORTRAN record 
length. If the FORTRAN record length is 
less than BLKSIZE, the unused portion of 
the buffer is not written (see Figure 36). 








im BLKSIZE — : =e ie 
| | 
f- = = = = FORTRAN Record — —-— — 4 | 
| 
| 


| : | Fon es 7} 

Data Not Written I 

anya RD seid See 4 

Figure 36. FORTRAN Record (FORMAT Control) 
With Undefined Specification 


and the FORTRAN Record Length 
Less Than BLKSIZE 


BLOCKED RECORDS: For all blocked records, 
the record length is specified in the LRECL 
subparameter; the block length and buffer 
length in the BLKSIZE subparameter. 





Fixed-Length Records: For blocked fixed- 
length records written under FORMAT con- 
trol, LRECL is specified as maximum poss- 
ible FORTRAN record length, and BLKSIZE 
must be an integral multiple of LRECL. If 
the FORTRAN record length is less than 
LRECL, the rightmost portion of the record 
is. padded with blanks (see Figure 37). 
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Examples: Assume BLKSIZE=48 and LRECL=24 


10 FORMAT(I2,F4.1,F8.4,F10.5) 
20 FORMAT(I3,F9.4) 


WRITE(13,10)N,B,Q,S 


WRITE(13, 20)K,Z 











, —- —— BLKSIZE — —— — — —— —-_— 1 
Les eee a er od 
| Written Block —- ——— — —- —— — =i 
= LRECL ae ee aS LRECL - — -— 

Posy FORTRAN | 
bE FORTRAN Record — ——— + — Record 7] | 


| | 1 
12 Bytes 


24 Data Bytes of 
Blanks 





Fixed-Length Blocked Records 
Written Under FORMAT Control 


Figure 37. 


Variable-L For blocked 
Yarsaprenpenaen “records “written under FOR- 
MAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length, and BLKSIZE must be 4 plus an 
integral multiple of LRECL. The four addi- 
tional bytes allocated with BLKSIZE are 
required for the block descriptor word 
(BDW) that contains the block length. The 
four additional bytes allocated with LRECL 
are used for the segment descriptor word 
(SpDW) that contains the record length 
indication. 


If a WRITE is executed and the amount of 
space remaining in the present buffer is 
less than LRECL, only the filled portion of 
this buffer is written (see Figure 38); the 
new data goes into the next buffer. Howev- 
er, if the space remaining in a buffer is 
greater than LRECL, the buffer is not writ- 
ten, but held for the next WRITE (see 
Figure 38). If another WRITE is not 
executed before the job step is terminated, 
then the filled portion of the buffer is 
written. 


If LRECL is omitted, its default value 
is set almost equal to the value of 
BLKSIZE. This results in having only one 
record written in any block. 

Example: Assume BLKSIZE=28 and LRECL=12 
30 FORMAT(E3,F5. 2) 
40 FORMAT(F4.1) 
50 FORMAT(F7.3) 
WRITE(12, 30) M,Z 
WRITE(12, 40)V 
WRITE(12, 50)Y 





a BLKSIZE — — =7 
| 
b---—~— —— — Written Block —— —-——— — fl | 

| 





LRECL + FREER eres 


--FORTRAN __ 
! Record 


| 
ce -—— ~FORTRAN Record ——4 
I 
| 





[-—- FORTRAN Record— —4 


t 


Variable-Length Blocked Records 
Written Under FORMAT Control 


This space of 13 bytes 
Ready for next WRITE. 
(space > LRECL) 


Figure 38, 


UNFORMATTED CONTROL 


Only variable-length records can be 
written without format control, i.e., the 
RECFM subparameter must be vS. (If nothing 
is specified, VS is assumed.) 


Records written with no FORMAT control 
have the following properties: 


e The length of the logical record is 
controlled by the type and number of 
variables in the input/output list of 
its associated READ or WRITE statement. 


® A logical record can be physically 
recorded on an external medium as one 
or more record segments. Not all seg- 
ments of a logical record must fit into 
the same physical record (block). 


* Two quantities control the manner in 
which records are placed on an external 
medium: the block size (as specified 
by the BLKSIZE parameter), and the log- 
ical record (as defined by the length 
of the I/O list). BLKSIZE is specified 
as part of the DCB parameter of the 
data definition (DD) statement. If not 
specified, FORTRAN provides default 
values. 


Each block begins with a 4-byte block 
descriptor word (BDW); each segment begins 
with a 4-byte segment descriptor word 
(SDW). The SDWs and BDWs are provided by 
the system. Each buffer begins with a 
4—byte block descriptor word (BDW). The 
SDWs and BDWs are provided by the system. 
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Unblocked Records: For all unblocked rec- 
ords written with or without FORMAT con- 
trol, the volume is positioned so that the 
last logical. record read or written is 


transmitted next. 
Blocked Records: Blocked records are back- 


spaced on a logical record basis. Thus, a 
BACKSPACE may result in a deblocking opera- 
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tion rather than making available a new 
physical record. 


Note: Logical records are usually synony- 
mous with the amount of data specified in 
the I/O list for the FEAD or WRITE state- 
ment that processes the record. Thus, when 
there is no FORMAT control, the logical 
record may be spanned over one or more 
physical records on the volume; however, 
FORTRAN treats only the logical record as 
an entity. For records written under 


FORMAT control, a single READ/WRITE state- 
ment may refer to or create several logical 
records. This occurs when there is a "/* 
character in the FORMAT statement or when 
the I/O list exceeds the FORMAT specifica- 
tions, causing the FORMAT statement to be 
used again from the first parenthesis. 


Extending a Data Set: The execution of an 
ENDFILE followed by the execution of a BAC- 
KSPACE does not cause the FORTRAN sequence 
number to be incremented. The data set can 
be extended (written) using the same FO- 
RTRAN sequence number. 


Record Length, Buffer Length, and Number of 
Buffers for Direct Access Data Sets 





A direct-access data set can contain 
only fixed-length, unblocked records. Any 
attempt to read or write any other record 
format by specification in the DCB parame- 
ter is ignored. The record length and 
buffer length for a data set are specified 
by the programmer as the record size in the 
DEFINE FILE statement, and cannot be 
changed by specifying the BLKSIZE or LRECL 
subparameters in the DCB parameter. For 
example, the statement: 


DEFINE FILE 8(1000,152,E, INDIC) 


sets the record length and buffer length 
permanently at 152 bytes. The direct- 
access data set defined by this DEFINE FILE 
statement contains 1000 fixed-length, 
unblocked records; each record is 152 bytes 
long and is written under FORMAT control. 


The programmer may specify the number of 
buffers for a direct-access data set as 
follows: 

BUFNO=x 


x is the number (1 or 2) of buffers 
used to read or write the data set. 


where: 


For records written with FORMAT control, 
the record format is the same as for fixed- 
length unblocked records written with FOR- 
MAT control for sequential data sets. For 
records written with no FORMAT control, the 
records must be fixed-length and unblocked. 
These records do not contain a block con- 
trol word or a segment control word. 


Spanning Considerations 


For records written with no FORMAT con- 
trol, the input/output list may exceed the 
logical record length (i.e., block size). 
In this case a new block is started on out- 
put, and the next block is processed on 
input. If it is shorter than the record 


length, the remaining portion of the record 
is padded with zeros (see Figure 41). 


The DEFINE FILE field r (r=152 in the 
example shown above) specifies the maximum 
size of each record in a data set. It is 
only when this size is exceeded by the I/0 
list that spanning occurs. 


Note that the spanning feature is an 
extension to FORTRAN language specifica- 
tions in that it is applicable only for 
programs written in FORTRAN under the 
System/360 Operating System. 


When spanning occurs, the FORTRAN 
library routines do not split an item over 
the span even if there is enough room in 
the buffer to accommodate part of the item. 
The same considerations apply to reading. 


Example: A DEFINE FILE statement has spec- 
ified the record length for a direct-access 
data set as 20. This statement is then 
executed: 


WRITE (9* IX) DP1, DP2,R1, R2 


DP1 and DP2 are real *8 variables. 
R1 and R2 are real *4 variables. 

IX is an integer variable that con- 
tains the record position. 


where: 


BACKSPACE, END FILE, and REWIND opera- 
tions are ignored for direct access data 
sets. 


Pera aS — Record Length — — — — | 

I { 

+. =—_— — — — —Record Segment} — — = 4 

I 1 

20 Data Bytes | 
Record Segment 1+ Record Segment » = 1 Logical Record 

fa SS —Record Segmentpg— — — — — cae | 


4 Data Bytes 16 Bytes of Zeros 


Logical Record (No FORMAT Con- 
trol) for Direct Access 


Figure 41. 
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DCB ASSUMPTIONS FOR LOAD MODULE EXECUTION 


For compilation, the LRECL value for the 
following data sets is fixed and cannot be 
altered by the programmer: 


Data _ Set LRECL Value 
SYSPRINT 120(G), 137(H) 
SYSIN 80 

SYSPUNCH 80 

SYSLIN 80 


The SYSPRINT, SYSIN, and SYSPUNCH com- 
piler data sets can contain blocked rec- 
ords. If the higher level linkage editor 
(program name: IEWLE440) is used, the SYS- 
LIN data set can contain blocked records. 


Table 16. BLKSIZE Ranges: 


[re tr reer 


The BLKSIZE value must be an integral 
multiple of the corresponding LRECL value 
shown above. The maximum BLKSIZE value is 
limited only by the type of input/output 
device (see Table 16), except that for SYS- 
LIN the maximum BLKSIZE value is 400 with 
linkage editor IEWLE4S4O,. 


For load module execution, specifica- 
tions depend on record type. For F type 
records, the BLKSIZE value must be an 
integral multiple of the LRECL value; for V 
type records, BLKSIZE must be specified as 
4 +n x LRECL (where n is the number of 
records in the block); for U type records, 
no blocking is permitted. Note, too, that 
the BLKSIZE and LRECL range is limited only 
by the type of device used to directly 
write the data set. Load module DCB param- 
eter default values are shown in Table 17. 


Device Considerations 
vsias aes Ss Sa a ts 4 


BLKSIZE Ranges l 


aaa ee + 
{ Device Type | F and U Record Type | V Record Type | 
}-----------------—- fanaa anne n nnn e- fo----------------- === ---------- 1 
| Card Reader | 1<x<80 { 9<x<80 | 

a-=---- === $------------2=-------------—----- 4} ------------=------------------4 
| Card Punch | 1sx<81 | 9<x<89 { 
p---~--~--------—--- 4-4 ----~--——- ---~-------------------- 4f-----------~------------------- 1 
| Printer: { | | 
| 120 Spaces I 1<x<121 | 9<x<129 | 
| 132 Spaces { 1sx<133 | 9<xs141 | 
| 144 Spaces | 1sx<145 | 9<x<153 | 
}------------—-—----- —|----------------—--------—-------- 4—-~---------.------------------- { 
| Magnetic Tape 1 18<x<32,760 | 
[ASS eer oe 5 aC SAEs SS ead TON NE meee WR See oe ee ee 4 
I Direct Access: | Without Track Overflow* | With Track Overflow | 
| }--~----—--------~---------------— 4-—--~-------~------------------ { 
| 2301 | 1<x<20,483 | 1<x<32, 760 
| 2302 { 1sx<4984 | 1<x<32,760 | 
H 2303 { 1<x<4892 | 1<x<32, 760 | 
| 2311 { 1<x<3625 | 1<x<32,760 | 
| 2314 | 1<x<7294 | 1<x<32, 760 | 
me ee tS doa ne + + - | 
|*If RECFM=V, the minimum block size is 9. | 
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Table 17. Load Module DCB Parameter Default Values 


4If the records have no FORMAT control, the default LRECL is 4 less than BLKSIZE, where| 
the default BLKSIZE is as specified in this table. For direct-access data sets, | 
blocksize is usually limited by track capacity, unless track overflow has been | 
specified. | 
2If the records have no FORMAT control, the default RECFM is VS (F if it is direct | 
I 
| 
J 


(ae a rea Te ee ee 
| Sequential Data Sets | Direct-Access Data Sets | 
~----------------- qo-7--------- 4 -- == + === ------ == ===} ---- === y= === === === 
Data Set | { Default | Default | Default | Default LRECL | 
| Reference Number {| ddname {| BLKSIZE* | RECFM? {| RECFM | or BLKSIZE | 
}------------------- 4------------ 4------~---- 4----------- 4----------- 4-------------=---- 4 
| 1 | Fro1iryyy | 800 | U { F | | 
[------------------- 4------------}----------- +----------- 4----------- : | 
| 2 | FTO02Fyyy | 800 | U | F | The value spec- | 
| ------------------ 4------------ 4----=------ 4----------- 4----------- { | 
| 3 | FTO03Fyyy | 800 | U | FA? | ified as the | 
|------------------- }------------ 4----=------ 4----------- 4----------- { | 
| 4 | FTO4Fyyy | 800 { U ( F | maximum size of | 
}|—----------------- 4------------ 4----------- +----------- 4-------~--- 1 | 
| 5 | FTO5Fyyy | 80 | F | F | a record in the| 
}--------------~---- 4------------ 4----------- 4----------- 4----------- 4 | 
| 6 } FTO6Fyyy {| 133 | UA? | F | DEFINE FILE | 
}------------------- 4------------ 4----------- 4----------- 4+------—---- 1 | 
{ 7 | Fro07Fyyy | 80 | F | F | statement. | 
}------------------- 4------------ 4----------- 4----------- 4----------- 4 | 
| 8 {| FTO8Fyyy | 800 | u | F I | 
H e | e | ° | bs | ® | | 
| : I . | . | : | : | | 
| ° | ° | . * | . | I 
| 99 | FT99Fyyy | 800 U | F | | 
}—------------------ Nise tate Soe ko tosonssas cS ie tS tt deter a Poses eute ee eS 4 
I 
| 
| 
| 
| 
| access). 

|°=fhe first character in the record is for carriage control. 

bowen See on cee eee ose cote eS ee ee ea ee ee 
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For ease of reference this section, 
directed solely to the user of the FORTRAN 
IV (G) compiler, has been written as a 
self-contained, independent unit. For 
information on FORTRAN IV (H) cataloged 
procedures, see “FORTRAN IV (H) Cataloged 
Procedures." 


This section contains figures illustrat- 
ing the job control statements used in the 
FORTRAN IV (G) cataloged procedures and a 
brief description of each procedure. The 
statements used to override the statements 
and parameters in any cataloged procedure 
are also discussed in this section. (The 
use of cataloged procedures is described in 
"FORTRAN Job Processing. "™) 


In each of the four cataloged procedures 
that include the compile step (Figures 42, 
43, 45, and 46), the EXEC statement named 
FORT designates that the operating system 
is to execute the program IEYFORT (the 
FORTRAN IV (G) compiler). 


The REGION parameter is ignored by 
sequential schedulers. For priority 
schedulers, it specifies a region size 
sufficient to compile approximately 400 
statements. 


MVT priority schedulers require that 
reqion size be specified, unless the user 
is willing to accept the default region 
size (as established in the input reader 
procedure). 


The size of the region is directly 
related to the maximum number of source 
statements that can be compiled by the 
FORTRAN (G) compiler. A region size of 
100K is estimated to be sufficient to com- 
pile approximately 400 statements assuming 
unblocked input and output and non-resident 
access methods. To adjust this region size 
for smaller or larger source programs, use 
75 bytes per statement as a rule of thumb. 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the 
EXEC statement associated with each step 
instead of in the JOB statement. 
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The compiler options (shown in Figure 
24) are not supplied with any procedure 
containing a compile step. Therefore, if 
the user wishes to have certain operations 
performed, he must specify those options in 
the job control statements. However, if 
the user does not specify any of the 
options, the system will assume certain 
default options which are noted by the 
underscores in Figure 24, 


The control statements contained in the 
procedure, FORTGC (shown in Figure 42), 
designate the data sets to be used by the 
compiler during its operation. The source 
listing, compile-time information, and 
error messages are written on the data set 
designated by the SYSPRINT DD statement. 
The object module resulting from the opera- 
tion of the FORTRAN compiler is written in 
the temporary data set &LOADSET, designated 
in the SYSLIN DD statement. This data set 
is sequential and is assigned to a sequen- 
tial device such as a tape or direct-access 
device. However, if the direct-access 
device is assigned, a primary allocation of 
200 records is requested with a secondary 
allocation of 100 records. Average record 
length is specified as 80 bytes. The data 
set is in PASS status, and records can be 
added to the data set. The SYSPUNCH DD 
statement defines the card punch to be used 
in obtaining an object. deck. 


The SYSOUT=B parameter on the SYSPUNCH 
DD statement is interpreted by sequential 
schedulers as indicating the system card 
punch unit. The priority scheduler will 
route the output to output class B. 


The programmer can override any of the 
default options by using an EXEC statement 
which includes the options that are 
desired. 


Compile and Linkage Edit 


The cataloged procedure to compile the 
source module and linkage edit the result- 
ing FORTRAN object module (FORTGCL) is 
shown in Figure 43. The control statements 
for compilation are the same as described 
above. However, output of the object 
module is defined by the SYSLIN DD 
statement. 
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Figure 42. 


In each of the cataloged procedures that 
include a linkage edit step (Figures 43, 
44, and 45), the EXEC statement named LKED 
specifies that the operating system is to 
execute the program IEWL (the linkage edi- 
tor). However, the linkage editor step (or 
the remainder of the procedure) is not 
executed if a condition code greater than 4 
was generated during the operation of the 
compile step in the same procedure. 


Execution of the linkage editor step 
produces a list of the linkage editor con- 
trol statements (in card image format), a 
map or cross-reference listing of the load 
module, and a list of linkage editor diag- 
nostic messages on the data set specified 
by the SYSPRINT DD statement. The load 
module is marked executable even though 
error conditions are found during 
processing. 


The primary input to the linkage editor 
may consist of concatenated data sets. The 
first, defined by the SYSLIN DD statement, 
is the output of the compiler; the second 
(may be omitted) is the data set defined by 
a LKED.SYSIN DD statement which is speci- 
fied by the user and is external to the 
procedure. 


External references made in a FORTRAN 
object module are resolved by the linkage 
editor. Some or all of these references 
can be resolved from the FORTRAN library 
(SYS1.FORTLIB) designated in the SYSLIB DD 
statement. 


During processing, the linkage editor 
requires a work data set which is defined 
by the SYSUTI DD statement. This data set 
is assigned to a direct-access device with 
primary allocation of 20 records and secon- 
dary allocation of ten records. The load 
module produced by the linkage editor is 
written in the temporary PDS defined in the 
SYSLMOD DD statement. The data set is in 
the PASS status. 
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Compile Cataloged Procedure (FORTGC) 


Linkage Edit and Execute 


This cataloged procedure, FORTGLG, first 
linkage edits the FORTRAN object module and 
then executes the resulting load module. 
(The FORTGLG procedure is shown in Figure 
44.) Since the linkage edit step is the 
first step in the procedure, the primary 
input is the data set defined by the LKED. 
SYSIN DD statement. 


The execute step is included in two 
cataloged procedures (see Figures 44 and 
45). In each of these procedures the 
execute step is invoked by the EXEC state- 
ment named GO, However, this step is 
bypassed if a condition code greater than 4 
was generated during the operation of the 
linkage edit step in this procedure. 


Input to the execute step is defined by 
a GO.SYSIN DD statement which is supplied 
by the user and is external to the proce- 
dure. The data set is read using data set 
reference number 5. In the linkage edit 
step, execution-time error messages are 
written in the data set defined by the SYS- 
PRINT DD statement. In the execute step, 
error messages and information for trace- 
back, DUMPs, and PDUMPs are written on the 
data set associated with the reference num- 
ber 6. (Output from the load module can 
also be written in the same data set.) The 
card punch is associated with data set 
reference number 7. 


In a multiprogramming environment with 
an MVT priority scheduler, main storage 
requirements for the execute step are 
determined by a number of factors. These 
include: the size of the object program 
produced by the compiler, the requirements 
of the data access method used, the block- 
ing factors, the number and sizes of the 
data sets used, the number and sizes of 
library subprograms invoked, and the sizes 
of the execution time routines required by 
the program. If the default region size 
(established in the cataloged procedure for 
the input reader) is not large enough for 
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Linkage Edit and Execute Cataloged Procedure (FORTGLG) 
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the program, REGION.GO must be used to spe- 
cify the region size for the execute step. 


A listing of the execution time routines 
required for various input/output, inter- 
ruption, and error procedures is contained 
in the FORTRAN IV Library Subprograms 
publication, Order No. GC28-6818. That 
publication also lists the sizes of both 
the execution-time routines and the 
mathematical subprograms. 


An example of using a REGION.GO 
specification to indicate the main storage 
requirements for the execute step of a 
FORTRAN program follows. 


//EXAMPLE1 JOB ACCOUNT1, ‘JOHNSMITH"', x 
4/ MSGLEVEL=1 
// EXEC FORTGCLG, PARM, FORT=DECK, x 


REGION. GO=84K 


7/FORT.SYSIN DD * 


e 


FORTRAN SOURCE SYMBOLIC DECKS 


/* 


//LKED.SYSIN DD * 


PREVIOUSLY COMPILED OR ASSEMBLED 
OBJECT DECKS 


/* 


//GO.SYSIN DD * 


INPUT DATA 


/* 
compile, Linkage Edit, and Execute 


The cataloged procedure (FORTGCLG) .to 
compile, linkage edit, and execute FORTRAN 
source modules is shown in Figure 45. This 
cataloged procedure consists of the state- 
ments in the FORTGC and FORTGLG procedures, 
with the following exception: the SYSLIN 
DD statement defines the output of the com- 
piler, and the same statement in the 
linkage edit step identifies this output as 
the primary input. 


The programmer does not have to define 
the linkage editor input as was required 
for the FORTGLG procedure, but the input 
data set must be defined for the compiler 
so that the source module can be read. A 
data set containing primary input to the 
linkage editor may also be defined by using 
a LKED.SYSIN DD statement. This data set 
is concatenated with the data set contain- 
ing the output of the compiler. 


Compile and Load 


The cataloged procedure (FORTGCLD) to 
compile and load FORTRAN source modules is 
shown in Figure 46. The control statements 
used in the compiler step are the same as 
those used in the cataloged procedure 
FORTGC (Figure 42). 


The load step is invoked by the EXEC 
statement GO. This statement specifies 
that the loader (program name LOADER) is to 
be executed. The EXEC statement also 
specifies that a storage map and any diag- 
nostic messages produced in the load step 
are to be placed in the data set specified 
in the SYSLOUT DD statement. 


The load step will not be executed if a 
condition code greater than 4 was generated 
during the compile step. 


Primary input to the load step is 
defined in the SYSLIN DD statement. This 
is the output data set produced by the com- 
piler. Additional input may be defined by 
a GO.SYSIN DD statement which is supplied 
by the user and is external to the proce- 
dure. This data set is concatenated with 
the primary input data set. 


Any external references made in the load 
step are resolved by the loader. Some or 
all of these references can be resolved 
from the FORTRAN library (SYS1.FORTLIB) 
designated in the SYSLIB DD statement. 
Private libraries may be concatenated with 
the FORTRAN library to help resolve extern- 
al references. Figure 29 shows how this 
may be done. 


USER _AND MODIFIED CATALOGED PROCEDURES 


The programmer can write his own cata- 
loged procedures and tailor them to the 
facilities in his installation. He can 
also permanently modify the IBM-supplied 
cataloged procedures. For information 
about permanently modifying cataloged pro- 
cedures, see the Job Control Language 
publication. 
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The IBM-supplied cataloged procedures 
for FORTRAN IV (G) define logical unit 05 
as SYSIN, 06 as SYSOUT, and 07 as SYSCP 
(see Figures 44, 45, and 46). If, during 
system generation, values other than 05 for 
the ONLNRD parameter, 06 for the OBJERR 
parameter, and 07 for the ONLNPCH parameter 
were specified in the FORTLIB macro 
instruction, one or more of the following 
DD cards must be added to the cataloged 
procedures, either to override them at 
execution time or to modify them permanent- 
ly. (The System Generation publication, 
Order No. GC28-6554, describes the FORTLIB 
macro instruction.) 


If a //GO.SYSIN DD * statement is used 
to define the input data set, DCB parame- 
ters should not be specified. However, if 
the data set defined as SYSIN resides some- 
where other than on the system input 
device, the programmer should be aware that 
the default BLKSIZE is 800 and the default 
RECFM is U (see Table 17). Therefore, if 
he desires a BLKSIZE of 80 and a RECFM of 
F, he must specify them explicitly. 


® For the unit specified as ONLNRD, 
the DD card: 


use 


//GO.FTXxFO001 DD DDNAME=SYSIN 


by TNL: 


GN28-0591 


e For the unit specified as OBJERR, 
the DD card: 


use 


//GO.FTxxF001 DD SYSOUT=A 


For the unit specified as ONLNPCH, use 
the DD card: 


//GO.FTxxF001 DD UNIT=SYSCP, 
//  DCB=(BLKSIZE=80,RECFM=F) 


where: 
xx (2 digits) is the unit 
specified 


In addition, the DD card for FT05001 
must be deleted permanently from the cata- 
loged procedure. 


OVERRIDING CATALOGED PROCEDURES 


Cataloged procedures are composed of 
EXEC and DD statements. A feature of the 
operating system is its ability to read 
control statements and modify a cataloged 
procedure for the duration of the current 
job. Overriding is only temporary; that 
is, the parameters added or modified are in 
effect only for the duration of the job. 
The following text discusses the techniques 
used to modify cataloged procedures. 
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Sample Coding Form 
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overriding 


Two forms of keyword parameters 
("keyword" and "keyword.procstep") are dis- 
cussed in "Job Control Language.“ The form 
"keyword.procstep" is used to add or over- 
ride parameters in an EXEC statement in a 
cataloged procedure. 


The FORTRAN programmer can, for example, 
ada (or override) compiler, linkage editor, 
or loader options for an execution of a 
cataloged procedure, or he can state dif- 
ferent conditions for bypassing a job step. 


Note: When the PARM parameter is overrid- 
den, all compiler, linkage editor, or load- 
er options stated in the EXEC statement in 
the procedure step are deleted and replaced 
by those in the overriding PARM parameter. 
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Compile and Load Cataloged Procedure (FORTGCLD) 


Example 1: Assume the cataloged procedure 
FORTGC is used to compile a program, and 
the programmer wants to specify the name of 
his program and the MAP option. The fol- 
lowing statement can be used to invoke the 
procedure and to supply the compiler 
options. 


//STEPL EXEC FORTGC, x 


tf PARM. FORT=" MAP, NAME=MYPROG* 


The PARM options apply to the procedure 
step FORT. 


Example 2: Assume the cataloged procedure 
FORTGLG is used to linkage edit and execute 
a module. Furthermore, the MAP option 
overrides XREF, LET, and LIST in the link- 
age editor step and the COND parameter is 
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changed for the execution of the load 
module. The following EXEC statement adds 
and overrides parameters in the procedure. 


//DO EXEC FORTGLG, PARM. LKED=MAP, x 
// COND. GO= (3, LT, DO. LKED) 


The PARM parameter applies to the link- 
age editor procedure step LKED, and the 
COND parameter applied to the execution 
procedure step GO. 


Example 3: Assume a source module is com- 
piled and loaded using the cataloged proce- 
dure FORTGCLD. Furthermore, an external 
name is specified as the entry point of the 
loaded program. The following EXEC state- 
ment adds and overrides parameters in the 
procedure. 


//STEP1 EXEC FORTGCLD, PARM. GO=* EP=FIRST* 


Overriding and Adding DD Statements 


A DD statement with the name "stepname. 
ddname" is used to override parameters in 
DD statements in cataloged procedures, or 
to add DD statements to cataloged proce- 
dures. The “stepname" identifies the step 
in the cataloged procedure, If “ddname" is 
the name of a DD statement present in the 
step, the parameters in the new DD state- 
ment override parameters in the DD state- 
ment in the procedure step. If "“ddname" is 
the name of a DD statement not present in 
the step, the new DD statement is added to 
the step. 


In any case, the modification is ef- 
fective only for the current execution of 
the cataloged procedure. 


When overriding, the original DD state- 
ment in the cataloged procedure is copied, 
and the parameters specified in it are 
replaced by the corresponding parameters in 
the new DD statement. Therefore, only ' 
parameters that must be changed are speci- 
fied in the overriding DD statement. 


If more than one DD statement is modi- 
fied, the overriding DD statements must be 
in the same order as the DD statements 
appear in the cataloged procedure. Any DD 
statements that are added to the procedure 
must follow overriding DD statements. 


When the procedures FORTGC, FORTGCL, 
FORTGCLG, and FORTGCLD are used, a DD 
statement must be added to define the SYSIN 
data set to the compile step in the proce- 
dures (see Figures 16, 22, and 23.2). When 
the procedure FORTGLG is used, a DD state- 
ment must be added to define the SYSLIN 
data set (see Figure 19). 


When the procedures FORTGCL, FORTGLG, 
and FORTGCLG are used, an overriding DD 
statement can be used to write the load 
module constructed in the linkage editor 
step in a particular PDS chosen by the pro- 
grammer, and assign that member of the PDS 
a particular name. 


During execution of procedure steps, the 
programmer can catalog data sets, assign 
names to data sets, supply DCB information 
for data sets, add data sets, or specify 
particular volumes for data sets by using 
overriding DD statements. 


Example 1: Assume the data sets identified 
by ddnames FTO4FO01 and FTO8F001 are named, 
cataloged, and assigned specific volumes. 
The following DD statements are used to add 
this information and indicate the location 
of the source module. 


//JOBIi JOB MSGLEVEL=1 
//STEP1 EXEC FORTGCLG 
//FORT.SYSIN DD * 


/* 

//GO.FTO4FO0L DD DSNAME=MATRIX, x 

ff DISP= (NEW, CATLG) , UNIT=TAPE, x 

4/ VOLUME=SER=987K 

//GO.e.FTO8F001 DD DSNAME=INVERT, x 
x 


‘f/f DISP= (NEW, CATLG) , UNIT=TAPE, 

// VOLUME=SER=10 20 

//GO.SYSIN DD * 

FSRSeS ee ee rn eT = OY nig, Ore gg gee een, eee ee Pa, a] 
| Input to Load Module | 
bse te eee eee a BO 4 
/* 
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Example 2: Assume DCB information is added 
to the DD statement identified by ddname 
FTO8F0O01 and a data set for data set 
reference number 4 is created and 
cataloged. 


//3JOB2 JOB 
//STEP1 EXEC FORTGLG 
//ULKED.SYSIN DD * 


presses eee Soho ek i eel ee eee 1 
| FORTRAN Object Module | 
bo Se en ee 4 
/* 


//GO.FTO4F001 DD DSNAME=FIRING, 
// UNIT=SYSDA, DISP= (NEW, CATLG) , 

//  SPACE=(100, (2000, 200),,, ROUND), 

//- — VOLUME=(PRIVATE, SER=207H) , 

// ‘ DCB=(RECFM=VB, LRECL=300, BLKSIZE=604) 
//GO.FTO8F001 DD DCB=(RECFM=F, BLKSIZE=200) 
7/GO.SYSIN DD * 


ODS 


foe ee rsa ee ee ee oe ee 1 
| Input to Load Module | 
Lipo asset oo o ee ee J 
/* 


Example 3: Assume the linkage edit and 
execute cataloged procedure (FORTGLG) is 
used. The load module constructed in the 
linkage editor step is placed in the cata- 
loged partitioned data set MATH and is 
assigned the member name DERIV, 


7/I3OB3 JOB 

//STEP1 EXEC FORTGLG 

//LKED.SYSLMOD DD DSNAME=MATH(DERIV), x 
4f DISP=(OLD, PASS) 

//7LKED.SYSIN DD * 


(SS eS Se Set eee SoS aS 1 
{ FORTRAN Object Module | 
Mi Sa oe en 4 
/* 

//G0.SYSIN DD * 

Ct er ee a Sr tars St rer sere 1 
| Input to Load Module | 
base t Se ee ee se 4 
/* 


Example 4: Assume the compile, linkage 
edit, and execute cataloged procedure 
(FORTGCLG) is used with three data sets in 
the input stream: 


1. A FORTRAN main program MAIN with a 


series of subprograms, SUB1 through 
SUBN. 
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2. A linkage editor control statement 
that specifies an additional library, 
MYLIB. MYLIB is used to resolve 
external references for the symbols 
ALPHA, BETA, and GAMMA. 


3. A data set used by the load module and 
identified by data set reference 
number 5 in the source module. 


The following example shows the deck 
structure. 


//JOBCLG JOB 00, FORTRANPROG, MSGLEVEL=1 
//HXECCLGX EXEC FORTGCLG 
//FORT?SYSIN DD * 


an aa maha a NR aS cae aco | 
| : | 
| : { 
| . | 
|-----------------------------~----------- { 
| FORTRAN Source Module SUBN | 
lane Sea Se ee j 
/* 


//UKED.ADDLIB DD DSNAME=MYLIB 
//UKED.SYSIN DD * 

LIBRARY ADDLIB(ALPHA, BETA, GAMMA) 
/* 
//GO.SYSIN DD * 


a ee ee 1 
| Input to Load Module | 
bree oS Se ea a ee 4 
/* 


The DD statement FORT.SYSIN indicates to 
the compiler that the source modules are in 
the input stream. The DD statement LKED. 
ADDLIB defines the additional library MYLIB 
to the linkage editor. The DD statement 
LKED.SYSIN defines a data set that is con- 
catenated with the primary input to the 
linkage editor. The linkage editor control 
statements and the object modules appear as 
one data set to the linkage editor. The DD 
statement GO.SYSIN defines data in the 
input stream for the load module. 
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For ease of reference this section, 
directed solely to the user of the FORTRAN 
IV (H) compiler, has been written as a 
self-contained, independent unit. For 
information on FORTRAN Iv (G) cataloged 
procedures, see “FORTRAN IV (G) Cataloged 
Procedures." 


This section contains figures showing 
the job control statements used in the FO- 
RTRAN IV cataloged procedures and a brief 
description of each procedure. This sec- 
tion also describes statements used to 
override statements and parameters in any 
cataloged procedure. (The use of cataloged 
procedures is discussed in "FORTRAN Job 
Processing.") 


Compile 


In the four cataloged procedures that 
have a compile step (see Figures 47, 48, 50 
and 51) the EXEC statement named FORT indi- 
cates that the operating system is to 
execute the program IEKAA00 (the FORTRAN IV 
H compiler). 


The REGION parameter is ignored by 
sequential schedulers. MVT priority sche- 
dulers require that region size be speci- 
fied, unless the user is willing to accept 
the default region size (as established in 
the input reader procedure). 


The amount of main storage allocated for 
the FORTRAN H compiler depends on the 
region size in an MVT environment, the par- 
tition size in an MFT environment, or the 
machine size in a PCP environment. The 
compiler uses all available main storage 
except for 3K bytes which are left for non- 
resident system routines. 


In certain instances, a programmer may 
wish to limit the amount of main storage 
used by the compiler. An example would be 
when the FORTRAN H compiler is executed as 
the original task in a multitasking 
environemnt. Unless the amount of main 
storage used by the compiler is limited, no 
subtasks could be created since no more 
storage would be available in the region. 


The programmer may request the amount of 
main storage to be allocated for the com- 
piler by specifying the SIZE option in the 
PARM parameter. Specific information con- 
cerning the SIZE option can be found in the 
section "Compiler Options." 


Note: If different region sizes are to be 
specified for each step in the job, the 
REGION parameter should be coded in the 
EXEC statement associated with each step 
instead of the JOB statement. 


Compiler options are not explicitly 
specified; default options are assumed -- 
in particular, SOURCE and LOAD. The source 
listing and compile-time information and 
error messages are written in the SYSOUT 
data set. 


The object module is written in the tem- 
porary data set &LOADSET. The data set 
&LOADSET is a sequential data set and is in 
"pass" status; records can be added to the 
data set. 


The SYSOUT=B parameter on the SYSPUNCH 
DD statement is interpreted by sequential 
schedulers as a specification for the sys- 
tem card punch unit. The priority schedu- 
lers route the output data set to system 
output class B. A programmer can get an 
object module card deck by overriding the 
default NODECK option with an explicit DECK 
option. 


Several additional DD statements, 
external to the procedure, may be supplied. 
If the EDIT option is used, a work data set 
must be defined with a FORT.SYSUT1 DD 
statement. If the compiler XREF option is 
specified, a work data set must be defined 
with a FORT.SYSUT2 DD statement. Input to 
the compile step is defined by a FORT.SYSIN 
DD statement. 


The data set SYSUT1 must be specified if 
the compiler option EDIT (produce struc- 
tured source listing) was requested. SYS- 
UT2 must be specified if the compiler 
option XREF (produce cross reference list- 
ing) was requested. Both data sets may 
reside on tape or direct access but must be 
defined in the sequential device class. 

The following is a typical DD statement for 
a utility data set: 


//SYSUT1 DD DSNAME=&UT1,UNIT=SYSSQ, Xx 
SPACE=(TRK, (40) ) 


&UT1 specifies a temporary data set. 
UNIT=SYSSQ specifies that the data set is 


to reside in a sequential device 
class. 
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Figure 47. Compile Cataloged Procedure (FORTHC) 


SPACE=(TRK, (40)) specifies that if the data 
set is assigned to a direct access 
device, 40 tracks are to be allocated 
to the data set. 


Linkage Edit 


In the three cataloged procedures that 
have a linkage edit step (see Figures 48, 
49, and 50), the EXEC statement named LKED 
indicates that the operating system is to 
execute the program IEWL (the linkage edi- 
tor). The linkage editor requires a region 
of 54K if used with MVT. The linkage edi- 
tor step (or the remainder of a procedure) 
is not executed if a condition code greater 
than 4 was generated by a compile step in 
the same procedure. 


If the linkage edit step is executed, a 
list of linkage editor control statements 
(in card image format), a map of the load 
module and a list of linkage editor diag- 
nostic messages are written in the SYSOUT 
data set. The load module is marked exe- 
cutable even though error conditions are 
found during linkage editor processing. 


If the linkage edit step is preceded by 
a compile step (see Figures 48 and 50), the 
primary input to the linkage editor may 
consist of concatenated data sets. The 
first, defined by the SYSLIN DD statement, 
is the output of the compiler (&LOADSET 
data set); the second (if present) is the 
data set defined by a LKED.SYSIN DD state- 
ment (external to the procedure). However, 
if the linkage edit step is the first step 
in a procedure (see Figure 49), the primary 
input is the data set defined by a 
LKED.SYSIN DD statement. 
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External references made in a FORTRAN 
object module are resolved by the linkage 
editor. Some or all of these references 
can be resolved from the FORTRAN library 
(SYS1.FORTLIB) which is a system resident 
PDS. 


During processing, the linkage editor 
requires a work data set which is defined 
by the SYSUT1 DD statement. This data set 
is assigned to a direct-access device. 


The load module produced by the linkage 
editor is written in the temporary PDS 
&GOSET with a member name of MAIN. The 
data set is in "pass" status and is 
assigned to a direct-access device. 


Execute 


In the two cataloged procedures that 
have an execute step (see Figures 49 
and 50), the EXEC statement named GO indi- 
cates that the operating system is to 
execute the load module (program) produced 
in a preceding linkage edit step in the 
same procedure. However, the execute step 
is bypassed if a condition code greater 
than 4 was generated by a compile or link- 
age edit step in the same procedure. 


Input to the execute step is defined by 
a GO.SYSIN DD statement (external to the 
procedure) and is read using data set 
reference number 5. Execution-time error 
messages and information for traceback and 
FORTRAN dumps are written in the SYSOUT 
data set that is associated with data set 
reference number 6. (Output from the load 
module can also be written in the same data 
set.) The card punch is associated with 
data set reference number 7. 
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Figure 48. Compile and Linkage Fdit Cataloged Procedure (FORTHCL) 


In a multiprogramming environment with 
an MVT priority scheduler, main storage 
requirements for the execute step are 
determined by a number of factors. These 
include: the size of the object program 
produced by the compiler, the requirements 
of the data access method used, the block- 
ing factors, the number and sizes of the 
data sets used, the number and sizes of 
library subprograms invoked, and the sizes 
of the execution time routines required by 
the program. If the default region size 
(established in the cataloged procedure for 
the input reader) is not large enough for 
the program, REGION.GO must be used to spe- 
cify the region size for the execute step. 


A list of the execution time routines 
required for various input/output, inter- 
ruption, and error procedures is contained 
in the FORTRAN IV Library Subprograms pub- 
lication, Order No. GC28-6818. That pub- 
lication also lists the sizes of both the 
execution-time routines and the mathemati- 
cal subprograms. 


An example of using a REGION.GO 
specification to indicate the main storage 
requirements for the execute step of a 
FORTRAN program follows. 


//EXAMPLE1 JOB ACCOUNT1, ‘JOHNSMITH", x 
// MSGLEVEL=1 

// EXEC FORTHCLG, PARM. FORT=DECK, x 
4/ REGION. GO=200K 


//FORT.SYSIN DD * 


/* 


| Previously Compiled or Assembled | 
| Object Decks | 


/* 


Load 


In the one cataloged procedure that has 
a load step (see Figure 51), the EXEC 
statement named GO indicates that the 
operating system is to execute the program 
LOADER (the loader). The EXEC statement 
also specifies that a storage map of the 
loaded program is to be produced. This map 
is to be placed in the data set specified 
in the SYSLOUT DD statement. 


The load step will not be executed if a 
condition code greater than 4 was generated 
during the compile step. 
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Primary input to the load step is 
defined in the SYSLIN DD statement. This 
is the output data set produced by the com- 
piler. Additional input may be defined by 
a GO.SYSIN DD statement which is supplied 
by the user and is external to the proce- 
dure. This data set is concatenated with 
the primary input data set. 


Any external references made in the load 
step are resolved by the loader. Some or 
all of these references can be resolved 
from the FORTRAN library (SYS1.FORTLIB) 
designated in the SYSLIB DD statement. 
Private libraries may be concatenated with 
the FORTRAN library to help resolve 
external references. Figure 29 shows how 
this may be done. 


USER AND MODIFIED CATALOGED PROCEDURES 


The programmer can write his own cata-~ 
loged procedures and tailor them to the 
facilities in his installation. He can 
also permanently modify the IBM-supplied 
cataloged procedures. For information 
about permanently modifying cataloged pro- 
cedures, see the Job Control Language 
Reference publication, Order No. 
GC28-6704. 


The IBM-supplied cataloged procedures 
for FORTRAN IV (H) define logical unit 05 
as SYSIN and 06 as SYSOUT (see Figures 49, 
50, and 51). If, during system generation, 
values other than 05 for the ONLNRD parame- 
ter and 06 for the OBJERR parameter were 


specified in the FORTLIB macro instruction, 
one or both of the following DD cards must 
be added to the cataloged procedures, ei- 
ther at execution time or permanently. 


e For the unit specified as ONLNRD, use 
the DD card: 


//GO.FTXXF001 DD DDNAME=SYSIN, 
DCB= (BLKSIZE=80, RECFM=F) 


e For the unit specified as OBJERR, use 
the DD card: 


//GO.FTxxXF001 DD SYSOUT=A where xx is 
the unit specified. (The System Generation 
publication, Order No. GC28-6554, 
describes the FORTLIB macro instruction. ) 


In addition, the DD card for FTOS5SF001 
must be deleted permanently from the proce- 
dure. The following section describes the 
general procedure for adding and deleting 
statements from cataloged procedures. 


OVERRIDING CATALOGED PROCEDURES 


Cataloged procedures are composed of 
EXEC and DD statements. A feature of the 
operating system is its ability to read 
control statements and modify a cataloged 
procedure for the duration of the current 
job. Overriding is only temporary; that 
is, the parameters added or modified are in 
effect only for the duration of the job. 
The following text discusses the techniques 
used to modify cataloged procedures. 
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Figure 49. Linkage Edit and Execute Cataloged Procedure (FORTHLG) 
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Figure 50. Compile, Linkage Edit, and Execute Cataloged Procedure (FORTHCLG) 
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Overriding Parameters in the EXEC Statement 


Two forms of keyword parameters 
("keyword" and "keyword.procstep") are dis- 
cussed in “Job Control Language." The form 
“keyword. procstep”" is used to add or over- 
ride parameters in an EXEC statement in a 
cataloged procedure. 


The FORTRAN programmer can, for example, 
add (or override) compiler or linkage edi- 
tor options for an execution of a cataloged 
procedure, or he can state different condi- 
tions for bypassing a job step. 


Note: When the PARM parameter is overrid- 
den, all compiler and/or linkage editor 
options stated in the EXEC statement in the 
procedure step are deleted and replaced by 
those in the overriding PARM parameter. 





Example 1: Assume the cataloged procedure 
FORTHC is used to compile a program, and 
the programmer wants to specify the name of 
his program and the MAP option. The fol- 
lowing statement can be used to invoke the 
procedure, and to supply the compiler 


options. 


//STEP1 EXEC FORTHC, x 
4/ PARM, FORT= "MAP, NAME=MYPROG* 


The PARM options apply to the procedure 
step FORT. 


Example 2: Assume the cataloged procedure 
FORTHLG is used to linkage edit and execute 
a module. Furthermore, the XREF option 
overrides MAP, LET, and LIST in the linkage 
editor step and the COND parameter is 
changed for the execution of the load 
module. The following EXEC statement adds 
and overrides parameters in the procedure. 


//DO EXEC FORTHLG, PARM. LKED=XREF, x 
VA COND. GO= (3, LT, DO. LKED) 


The PARM parameter applies to the link- 
age editor procedure step LKED, and the 
COND parameter applies to the execution 
procedure step GO. 


Example 3: Assume a source module is com- 
piled, linkage edited, and executed using 
the cataloged procedure FORTHCLG. Further- 
more, the compiler option OPT and the link- 
age editor option XREF are specified, and 
account number 506 is used for the execu- 
tion procedure step. The following EXEC 
statement adds and overrides parameters in 
the procedure. 


//STEP1 EXEC FORTHCLG, 
// PARM. FORT="OPT=2", 
//  PARM, LKED=XREF, 

//- “ACCT. GO=506 


PS OS 
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Example 4: Assume a source module is com- 
piled and loaded using the cataloged proce- 
dure FORTHCLD. Furthermore an external 
name is specified as the entry point of the 
loaded program. The following EXEC state- 
ment adds and overrides parameters in the 
procedure. 


//STEP1 EXEC FORTHCLD, PARM. GO="EP=FIRST* 


Overriding and Adding DD Statements 


A DD statement with the name "stepname. 
ddname“ is used to override parameters in 
DD statements in cataloged procedures, or 
to add DD statements to cataloged proce- 
dures. The “stepname" identifies the step 
in the cataloged procedure. If "ddname”™ is 
the name of a DD statement present in the 
step, the parameters in the new DD state- 
ment override parameters in the DD state- 
ment in the procedure step. If "“ddname" is 
the name of a DD statement not present in 
the step, the new DD statement is added to 
the step. 


In any case, the modification is only ef- 
fective for the current execution of the 
cataloged procedure. 


When overriding, the original DD state- 
ment in the cataloged procedure is copied, 
and the parameters specified in it are 
replaced by the corresponding parameters in 
the new DD statement. Therefore, only 
parameters that must be changed are speci- 
fied in the overriding DD statement. 


If more than one DD statement is modi- 
fied, the overriding DD statements must be 
in the same order as the DD statements 
appearing in the cataloged procedure. Any 
DD statements that are added to the proce- 
dure must follow overriding DD statements. 


Note: The following additional rules apply 
to overriding in cataloged procedures: 


1. In the DCB parameter, individual sub- 
parameters can be overridden. 


2. To nullify the use of any particular 
keyword parameter (except the DCB 
parameter), the overriding DD state- 
ment must specify 


keyword=, 


3. A parameter can be overridden by spec- 
ifying a mutually exclusive parameter 
in the overriding DD statement. For 
example, in the FORTHC procedure, the 
SPACE specification for SYSLIN may be 
overridden by using either the SPLIT 
or SUBALLOC parameter. 


| FPORTHCLG, and FORTHCLD are used, 
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When the procedures FORTHC, FORTHCL, 

a DD 
statement must be added to define the SYSIN 
data set to the compile step in the proce- 
dures (see Figures 16, 22, and 23.1). With 
MVT, if SYSUT1 and SYSUT2 DD statements are 
added to the FORT step, the DSNAME=&SYSUT1 
and DSNAME=&SYSUT2 DD parameters should be 
used in order to employ the dedicated work- 
file feature of the operating system. For 
information on dedicated workfiles, see the 
Job Control Language Reference publication. 
When the procedure FORTHLG is used, a DD 
statement must be added to define the 
SYSLIN data set (see Figures 18 and 19). 


When the procedures FORTHCL, FORTHLG, 
and FORTHCLG are used, an overriding DD 
statement can be used to write the load 


module constructed in the linkage editor 
step in a particular PDS chosen by the pro- 
grammer, and assign that member of the PDS 
a particular name. 


In execution procedure steps, the pro- 
grammer can catalog data sets, assign names 
to data sets, supply DCB information for 
data sets, add data sets, or specify par- 
ticular volumes for data sets by using 
overriding and/or additional DD statements. 


Example 1: Assume the data sets identified 
by ddnames FTO4FO001 and FTO8F001 are named, 
cataloged, and assigned specific volumes. 
The following DD statements are used to add 
this information and indicate the location 
of the source module. 


FORTRAN IV (H) Cataloged Procedures 86.1 


//JOB1 JOB MSGLEVEL=1 
//STEP1 EXEC FORTHCLG 
//FORT.SYSIN DD * 


Qe a) 
| FORTRAN Source Module | 
bjeSes So ine ee eee oe So ee eee ee S: J 
/* 

//GOeFTO4F001 DD DSNAME=MATRIX, x 
4/ DISP= (NEW, CATLG) , UNIT=TAPE, x 
4/ VOLUME=SER=987K 

//GO.FTO8F001 DD DSNAME=INVERT, x 
//  DISP=(NEW, CATLG) , UNIT=TAPE, x 


7/ VOLUME=SER=1020 
//GO.SYSIN DD * 


aaa ar ame Pr ee alam | 
| Input to Load Module ! 
Us a placate lh 
/* 

Example 2: Assume the linkage edit and 


execute cataloged procedure (FORTHLG) is 
used. The load module constructed in the 
linkage editor step is placed in the cata- 
loged partitioned data set MATH and is 
assigned the member name DERIV. 


//JOB3 JOB 

//STEP1 EXEC FORTHLG 

//LKED.SYSLMOD DD DSNAME=MATH(DERIV), x 
/f DISP=(MOD, PASS) 

//LKED.SYSIN DD * 


Wey ge et a eee PR ae a as a ee appr: a te paar | 
| FORTRAN Object Module | 
Bea ee a Fie atetee ae ere eee | 
/* 

//GO.SYSIN DD * 

pre ae ne oe cert me 1 
| Input to Load Module | 
Cage en Bowe eo 4 
/* 


Example 3: Assume the compile, linkage 
edit, and execute cataloged procedure (FOR- 
THCLG) is used with three data sets in the 
input stream: 


1. A FORTRAN main program MAIN with a 
series of subprograms, SUB1 through 
SUBN. . 


2. A linkage editor control statement 
that specifies an additional library, 
MYLIB, MYLIB is used to resolve 
external references for the symbols 
ALPHA, BETA, and GAMMA. 


3. A data set used by the load module and 
identified by data set reference num- 
ber 5 in the source module. 


The following example shows the deck 
structure. 


//JOBCLG JOB 00,FORTRANPROG,MSGLEVEL=1 
//HXECCLGX EXEC FORTHCLG 
//FORT.SYSIN DD * 


| erence errs aaa ee ee ee + 
l FORTRAN Source Module MAIN | 
J--—-------------------------------------- 4 
| FORTRAN Source Module SUB1 | 
[renner nnn nen nnn nnn wenn nnn mene 1 
| : | 
I : { 
| : | 
}------------ ~~~-~------------------------- 4 
| FORTRAN Source Module SUBN { 
Me ane 4 
/* 


/7/UKED.ADDLIB DD DSNAME=MYLIB 
//LKED.SYSIN DD * 

LIBRARY ADDLIB (ALPHA, BETA, GAMMA) 
/* 
//GO.SYSIN DD * 


(Sees oa ee ae ne ee ep ee 1 
| Input to Load Module | 
Lae a a a 4 
/* 


The DD statement FORT.SYSIN indicates to 
the compiler that the source modules are 
in the input stream. The DD statement 
LKED.ADDLIB defines the additional library 
MYLIB to the linkage editor. The DD state- 
ment LKED.SYSIN defines a data set that is 
concatenated with the primary input to the 
linkage editor. The linkage editor control 
statements and the object modules appear as 
one data set to the linkage editor. The DD 
statement GO.SYSIN defines data in the 
input stream for the load module, 
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PROGRAMMING CONSIDERATIONS 


This section discusses a variety of pro- 
gramming topics that should be considered 
in writing a FORTRAN program. 


STORAGE LOCATIONS AND BYTES 


Storage locations in System/360 are 
called bytes, words, and double words. One 
word is four bytes long; a double word is 
eight bytes long. When data is read into 
main storage, it is translated into inter- 
nal format. See Table 18 for storage allo- 
cation according to the type and length of 
the constant or variable. 

















Table 18. Storage Allocation 
Cee sSasseS= na | cams gh atm atc 
| Type |Length| Storage | 
}---------------] }------}------—---——------- { 
| Logical | 1 [1 byte | 
| | 4 {4 bytes 
}---~-----~-----}------}------ —---------- { 
{ Real 4 {4 bytes | 
{ | 8 [8 bytes | 
--—--=---------- +------}------—----------4 
! Integer 2 {2 bytes(variable | 
| { only) | 
4 |4 bytes | 
~-~-----~-----+------ 4------------------ | 
| complex 8 |8 bytes | 
| | 16 [16 bytes { 
}-—~--—--------+4---—- 4------------------ { 
| Character -- [1 character/byte | 
| (BCD or EBCDIC) | | 
~---------—---}---—-- 4--------------—--1 
{| Hexadecimal -- |2 characters/byte | 
Msn i en ce as ar i ea re Se mn ey nose it Se di 


The operating system is device independ- 
ent. In particular, the FORTRAN IV (G) and 
(H) compilers can operate with any combina- 
tion of dewices (shown in Table 4); howev- 
er, there are certain requirements. 


@ The FORTRAN IV (G) compiler requires at 
least a System/360, Model 40, with 128K 
bytes of storage and a standard 
instruction set with the floating-point 
option. 


@ The FORTRAN IV (H) compiler requires at 
least a System/360, Model 40, with 256K 
bytes of storage and the standard 
instruction set with the floating-point 
option. 
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e All programs require a device, such as 
the 1052 keyboard printer, for direct 
operator communication. 


e At least one direct~-access device must 
be used for residence of the operating 
system. 


e For FORTRAN IV (G), the printer must 
have at least a 120-character print 
line; for FORTRAN IV (H), at least a 
132-character print line. 


Boundary Adjustment of Variables in COMMON 
Blocks and EQUIVALENCE Groups 


Variables in a COMMON block or EQUIVA- 
LENCE group may be in any order if the 
BOUNDRY=ALIGN option is specified in the 
FORTLIB macro instruction during system 
generation, because boundary alignment vio- 
lations are corrected during execution. 
(The FORTLIB macro instruction is described 
in the System Generation publication.) If 
the BOUNDRY=NOALIGN option is specified and 
boundary violations are encountered during 
execution of the object program, the job 
terminates. 


If the BOUNDRY=ALIGN option of the FORT- 
LIB macro instruction is specified and a 
boundary violation occurs in a FORTRAN main 
program or in a FORTRAN or assembler lan- 
guage subprogram, each instruction that 
refers to the improperly aligned variable 
requires that (1) the specification excep- 
tion resulting from this reference be proc- 
essed, and (2) the boundary alignment rou- 
tine be invoked. Therefore, considerable 
programming efficiency is gained if the 
programmer ensures that all of the 
variables have proper boundary alignment. 
The FORTRAN IV Language publication con- 
tains information on boundary alignment. 


When boundary alignment is performed, 
program interrupt message IHC210I is 
issued. (This message is described com- 
pletely in the section “Program Interrupt 
Messages" in Appendix D). For boundary 
alignment, the letter A appears in the text 
of the message and the code 6 appears in 
the old PSW (program status word), which is 
included in the message. The number of 
warning messages printed is limited to 10. 
After 10 boundary alignment adjustments 
have been made, the message is suppressed, 
but boundary alignment violations continue 
to be corrected. 


Note: Even if BOUNDRY=ALIGN is specified 
and a boundary error occurs in an EXECUTE, 
LM (load multiple), or STM (store multiple) 
instruction in a subprogram written in 
assembler language, boundary adjustment 
does not take place and the job terminates. 
Therefore, if these instructions refer to 
improperly aligned data, they should not be 
used in assembler language subprograms. 


Indicators and Sense Lights 


At the start of program execution, the 
divide-check indicator, the overflow indi- 
cator, and the pseudo sense lights are not 
initialized. Therefore, if a programmer 
intends to use the indicators or sense 
lights, he should initialize them prior to 
use; otherwise, erroneous results may be 
obtained. (For additional information, see 


Conditional Branching 


A test for 0.0 in an IF statement is not 
recommended. Slight inaccuracies may cause 
the low-order bit(s) to be set. Therefore, 
the test for 0.0 may not yield the expected 
result. 


Arithmetic IF Statement 


A fixed-point overflow condition results 
in the following action: 


® In FORTRAN (G), if the integer is posi- 
tive, a negative branch is taken, i.e., 
the first branch. If the integer is 
negative, a positive branch is taken, 
i.-e., the third branch. 


* In FORTRAN (H), the zero (middle) 
branch is always taken. 


Use of STOP _n Statement 


There are no checks made to determine if 
a value of n greater than 4095 is used in 
the STOP n statement. 4095 is the maximum 
value that can be used for n and still fit 
into the 3 digits used for the user 
condition-code. Any value of n greater 
than 4095 overflows into the system condi- 
tion code. 


Register 15 as_a Condition Code Register 


Register 15 is used by the compilers as 
a condition code register, a RETURN code 
register, and a STOP code register (STOP 
code = condition code). The particular 
values that Register 15 can contain and 
their explanations follow: 


16 -~- A terminal error has been detected 
during execution in a subprogram (an 
IHCxxxI message is generated). 


4*i -- A RETURN i statement has been 
executed in a subprogram (i is a 
RETURN code). 


n -- A STOP n statement has been executed 


(n is the condition code). 


0 -~ A RETURN or a STOP statement has 
been executed in either a main pro- 
gram or a subprogram (0 is a RETURN 
code or a condition code). 


Note: Both FORTRAN (G) and (H) will gener- 
ate a STOP (i.e., 0 is the condition code) 
for a RETURN or RETURN i issued in a main 
program. 


Use of Embedded Blanks _in FORTRAN Programs 


fo improve the readability of a source 
program, the programmer may use any number 
of blanks when writing FORTRAN statements. 
Except for literal data, in which blanks 
are retained as coded in the source state- 
ment, blanks are normally ignored by the 
compilers, Thus, the statements DO 25 J = 
10 is the equivalent of DO253=10. Both 
statements are syntactically correct as- 
signment statements and are executed as 
such, i.e., a value of 10 is assigned to 
the variable DO253. Neither statement will 
cause an error message. 


Use_of DUMP_and PDUMP 


Under the operating system, a program 
may be loaded into different areas of 
storage for different executions of the 
same job. The following conventions should 
be observed when using the DUMP or PDUMP 
subroutine to insure that the appropriate 
areas of storage are dumped. 


If an array and a variable are to be 
dumped at the same time, a separate set of 
arguments should be used for the array and 
for the variable. The specification of 
limits for the array should be from the 
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TRAN IV (H) DO loop optimization, see 
Appendix G, “FORTRAN IV (H) Optimization 
Facilities." 


During the operation of the FORTRAN IV 
(G) compiler, one complete phase is 
included for the purpose of DO loop 
optimization. 


Each loop is recorded internally as it 
is encountered in the source module. As 
each step of the optimization process pro- 
gresses, the loops are further categorized 
for ease of reference in generating the 
corresponding object code. 2. 


If loops are nested, the end of each 
loop is denoted by a special reserve mark, 
which is placed at the end of the interme- 
diate notation that is being produced. The 
level of nesting is also recorded for each 
group of nested loops. This minimizes 
execution time in determining at object 
time the depth to which calculation must be 
maintained to close the first loop of the 
nest. 


A further categorization divides the 
leops into standard and non-standard. 
Standard denotes the requirements of regis- 
ter assignment for the script expression, 
and non-standard denotes the opposite. 
This method enables the compiler to make 
register assignments prior to the final 
generation of the object code. In this 
way, addresses are retrieved and inserted 
into the designated instruction without 
unnecessary repeated address calculation. 


Wine, Ooi 41 


r 
{H ONLY|Support of AND, OR, and COMPL 
L------ 4 


The functions listed in Table 19 are not 
part of the standard FORTRAN language, but 
are currently supported by the (H) compil- 
er. Caution should be exercised in their 
use since continued support is not assured. 


Data Initialization Statement 


To initialize an array, the programmer 
should consider the following points: 


1. He may initialize any element of an 
array by subscripting the array name. 
Only one element is initialized; if 
any excess characters are specified, 
they are truncated and not placed into 
the next element. (Overflow from one 
element to the next is known as 
spill.) A partially filled array ele- 3. 
ment is padded on the right with 
blanks. The following example illus- 
trates how individual array elements 
may be initialized: 


DIMENSION A(10) 
DATA A(1),A(2),A(4) ,A(5) /*ABCD', 
*ORSTUVW*!, °123','6666'/7 


A(1) contains ABCD 

A(2) contains QRST 

A(3) is not initialized (note that 
spill does not occur for a sub- 
scripted array name) 

A(4) contains 123b 

A(5) contains 6666 

A(6) through A(10) are not 
initialized. 


Several consecutive elements of an 
array may be initialized with a single 
literal constant by specifying the 
array name without a subscript. Data 
spill occurs through as many elements 
as are necessary to insert the con- 
stant. If the last element initia- 
lized is only partially filled, it is 
padded on the right with blanks. (Any 
subsequent array elements are not 
initialized; that is, their contents 
are unchanged.) Truncation occurs if 
the constant exceeds the limit of the 
array. The following example illus- 
trates how several array elements may 
be initialized with one constant: 


DIMENSION ARRAY (9) 
DATA ARRAY/ 
*"ABCDEFGHIJKLMNOPORSTUVWXYZ'7 


contains ABCD 
contains EFGH 
contains IJKL 
contains MNOP 
contains QRST 
contains UVWX 
ARRAY(7) contains YZbb 
ARRAY(8) and ARRAY(9) are not 
initialized. 


ARRAY (1) 
ARRAY (2) 
ARRAY (3) 
ARRAY (4) 
ARRAY (5) 
ARRAY (6) 


Note that data spill occurs only at 
the beginning of an array. To begin 
data spill in the middle of an array, 
the EQUIVALENCE statement is used in 
the following manner: 


DIMENSION ARRAYA(10), ARRAYB(5) 
EQUIVALENCE (ARRAYA (6) ,ARRAYB(1)) 
DATA ARRAYB/‘ABCDEFGHIJKLMNOPORST® Z 


ARRAYA(1) through ARRAYA(5) are not 
initialized. 

ARRAYA(6) contains ABCD 

ARRAYA(7) contains EFGH 

ARRAYA(8) contains IJKL 

ARRAYA(9) contains MNOP 

ARRAYA(10) contains QRST 


The FORTRAN language requires that 
there must be a one-to-one correspon- 
dence between data elements and 
initializing constants. However, this 
correspondence may be violated when 
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Table 19. Additional Built-In Functions -- (H) Compiler 
(Fr Se ea aaa aaa a aaa Ue ee bie papal, Neier arreaaaeoaaicies 1 
| | | In-Line | No. of | Type of | Type of | 
| Function | Entry Name | | Arguments |{ Arguments [Function Value _ | 
---—--—-----——--------- $-----—---—----- $------- 4----—------ }-----------4--------------- 
{Logical intersection of | | | | Real*4 | | 
| two arguments | AND | | 2 l or | Real*4 | 
| | l | Integer*4 | l 
|---------------—---—-- 4--~---------- +}--------—--------~ f-----=-----f--- ~~~ 
[Logical union | | | | Real*4 | | 
| of two arguments | OR | | 2 | or | Real*4 | 
| | | | | Integer*4 | | 
[-------------- w-------- 4{----~---~----- 4------~ 4---—-—----}-----—---—- {---------------- 4 
{Logical 1's complement | | | | Real*4 | 
| of argument | COMPL | | 1 | or | Real *4 | 
I | | | | Integert4 | { 
| Sees ee ee eee Baa SS a een eda So eee ee 4 


using data spill. In this case, each 
constant should be specified immedi- 
ately after the name of the array or 
element it is to initialize. In the 
following example, an array is initia- 
ized (using data spill); then a vari- 
able is initialized. 


DIMENSION A(3) 
DATA A/*ABCDEFGHIJKL'7,X/*MNOP'/ 


A(1) contains ABCD 
A(2) contains EFGH 
A(3) contains IJKL 
x contains MNOP 


If each constant is not specified 
immediately after its associated array 
ox variable name, overlay of spilled 
data may occur, as shown in the fol- 
lowing example: 


DIMENSION A(3) 
DATA A, X/*ABCDEFGHIJKL' ,10.0/ 


A(1) contains ABCD 
A(2) contains 10.0 
A(3) contains IJKL 
x is not initialized 


In this example, the second element of 


the array is overlaid by the second 
initializing constant. 


Object Time Input/Output Efficiency 





FORTRAN processing time can be appre- 
ciably reduced by the use of programming 
techniques that result in greater data 
transfer efficiency. Such techniques are 
particularly important in executing pro- 
grams that require substantial input/output 
operations. Discussed below are four pro- 
gramming areas in which the correct choice 
of programming method can increase FORTRAN 
processing speed. 
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READ/WRITE TYPE: The unformatted form of 
the READ and WRITE statement provides the 
fastest data transfer rate. For most effi- 
cient processing, therefore, the unfor- 
matted form should be used to transfer 
information to or from an intermediate data 
set, a data set that is written out during 
a program, not examined by the programmer, 
and then read back for additional process- 
ing later in the program or in another pro- 
gram. Thus, for an intermediate data set, 
statement 11 in the following example is to 
be preferred to statement 9. 


COMMON A(10), B(10) 
DIMENSION D(20) 
EQUIVALENCE (A(1), D(1)) 


9 WRITE (10,10)A, B 
10 FORMAT (10E13.3/) 
11 WRITE (9) D 


IMPLIED DO: Array notation is far more 
efficient than the indexing capability of 
an implied DO in an I/O list. Thus, for 
efficiency, the statement WRITE (9) A 
(where A is an array name) is preferable to 
WRITE (9) (A(I),I=1,10). 


EQUIVALENCE STATEMENT: In FORTRAN, on 


input, data is taken from a record and 
placed into storage locations that are not 
necessarily contiguous, On output, data is 
normally gathered from diverse storage 
locations. Input/output operations, howev- 
er, can be made more efficient by storing 
and retrieving data from contiguous 
locations. 


To construct an efficient READ or WRITE 
statement for an I/O list consisting of 
many variables, use a COMMON or named COM- 
MON statement to force all the variables in 
the list to be allocated contiguous storage 
Space. Next, use an EQUIVALENCE statement 
to define a single dimensioned variable 
that is the same length as the list of 
variables. Finally, use a WRITE on the 
single-dimensioned variable using array 


notation. The following example illus- 
trates this technique: 


COMMON/LISTA/A (10) ,B(8),C,D, I, K, L(10) 
REAL*8 B 

COMPLEX#16 LIST(10) 

EQUIVALENCE(A(1), LIST(1)) 


WRITE(9) LIST 
BACKSPACE STATEMENT: Use of the BACKSPACE 


statement is not recommended if efficient 
processing is desired. 


Data Definition Considerations 





The DCB parameter of the DD statement 
allows for the redefinition of many data 
set characteristics at execution time. 
Those specifications that most concern the 
FORTRAN programmer are discussed below. 
For a full description of the DCB parame- 


ter, see the Supervisor and Data Management 
Macro Instructions publication. 


BLKSIZE: The BLKSIZE subparaméter speci- 
fies the buffer size to be used; the maxi- 
mum is 32K. As a general rule, for tape, 
the larger the biocksize, the more effi- 
cient the processing. (Note that for tape, 
the user should not specify a blocksize of 
less than 18 bytes. Records of less than 
18 bytes may be lost when read.) On disk, 
specifying the full track as a blocksize is 
more efficient than specifying a partial 
track. The blocksize specified should be 
large enough to hold the largest logical 
record produced. No spanning of a logical 
record into physical records will then 
occur. 


BUFNO: The BUFNO subparameter specifies 
tuc number of buffers to be used. If a 
value of 1 is specified for BUFNO, single 
buffering is provided. If either no value 
or any value other than 1 is specified, 
double. buffering, which offers an overlap 
advantage, is provided. 


RECFM: The RECFM subparameter specifies 
both record format and the use of blocking. 
When records are blocked, fewer I/O 
requests are made to a device during the 
processing of logical records; I/O proces- 
sing speeds are thereby increased. In gen- 
eral, large blocking factors improve per- 
formance. (See “Record Format" for addi- 
tional information.) 


OPTCD: OPTCD=C requests the use of chained 
scheduling, a feature that results in the 
decrease of I/O transfer time. Chained 
scheduling is put into effect only when an 
I/O request is received before a previous 
I/O request has ended. For this reason it 


is difficult to predict when chained sched-~- 
uling will be effective. However, the use 
of chained scheduling will provide a per- 
formance improvement in the formatting that 
is done with a new direct access data set. 
For sequential data sets the user may wish 
to measure the effect before selecting 
chained scheduling for production runs. 


Direct-Access Programming 


Using direct-access I/O rather than 
sequential I/O can decrease load module 
execution time: the direct access state- 
ments in the FORTRAN IV language enable the 
programmer to retrieve a record from any 
place on the volume without reading all the 
records preceding that record in the data 
set. For efficiency, direct data sets 
should be pre-formatted. If, however, the 
NEW subparameter is specified in the DD 
statement for the data set, a FORTRAN- 
supplied load module will format the data 
set before the program begins processing. 


Note: Direct-access I/O statements and 
sequential I/O statements may not be used 
to process the same direct data set within 
the same FORTRAN load module. However, 
sequential I/O statements may process a 
direct data set in one load module, while 
direct access I/O statements process it in 
another. 


Not all applications are suited to 
direct-access I/0, but an application that 
uses a large table that must be held in 
external storage can use direct-access I/0 
effectively. An even better example of a 
direct-access application is a data set 
that is updated frequently. Records in the 
data set that are updated frequently are 
called master records. Records in other 
data sets used to update the master records 
are called detail records. 


Each of the master records should con- 
tain a unique identification that distin- 
quishes this record from any other master 
record. Detail records used to update the 
masters should contain an identification 
field that identifies a detail record with 
a master record. For example, astronomers 
might have assigned unique numbers to some 
stars, and they wish to collect data for 
each star on a data set. The unique number 
for each star can be used as identification 
for each master record, and any detail 
record used to update a master record for a 
star would have to contain the same number 
as the star. 


A FORTRAN program indicates which record 
to FIND, READ, or WRITE by its record posi- 
tion within the data set. The ideal situa- 
tion would be to use the unique record 
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identification as the record position. 
However, in most cases this is impractical. 
The solution to this problem is a randomiz- 
ing technique. A randomizing technique is 
a function which operates on the identifi- 
cation field and converts it to a record 
position. For example, if 6-digit numbers 
are asSigned to each star, the randomizing 
technique may truncate the last two digits 
of the number assigned to the star and use 
the remaining four digits as a record posi- 
tion. For example, star number 383320 
would be assigned position 3833. Another 
example of a randomizing technique would be 
a mathematical operation performed on the 
identification number, such as squaring the 
identification number and truncating the 
first four digits and the last four digits 
of the result. Then the record for star 
number 383320 is assigned record position 
3422. There is no general randomizing 
technique for all sets of identification 
numbers. The programmer must devise his 
own technique for a given set of identifi- 
cation numbers. 


Two problems arise when randomizing 
techniques are used. The first problem is 
that there may be a lot of space wasted on 
the volume, The solution in this instance 
must be developed within the randomizing 
technique itself. For example, if the last 
two digits on the identification numbers 
for stars are truncated and no star numbers 
begin with zero, the first thousand record 
positions are blank. Then a step should be 
added to the randomizing technique to sub- 
tract 999 from the result of the 
truncation. 


The second problem is that more than one 
identification may randomize to the same 
record location. For example, if the last 
two digits are truncated, the stars identi- 
fied by numbers 383320, 383396, and 383352 
randomize to the same record location - 
3833. Records that randomize to the same 
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record location are called synonyms. This 
problem can be solved by developing a dif- 
ferent randomizing technique. However, in 
some situations this is difficult, and the 
problem must be solved by chaining. 


Chaining is arranging records in a 
string by reserving an integer variable in 
each record to point +o another record. 
This integer variable will contain either 
an indicator showing that there are no more 
records in this chain, or the record loca- 
tion of the next record in the chain. Rec- 
ords chained together are not adjacent to 
each other. Figure 52 shows the records 
for star numbers 383320, 383396, and 
383352. 


When records are chained, the first 
record encountered for a record position is 
written in the record position that 
resulted from randomizing the identifica- 
tion number. Any records that then ran- 
domize to that same record location must be 
written in record positions to which no 
other record identifications randomize. 

The space for these synonyms can be allo- 
cated either at the end or the beginning of 
the data set. However, this space must be 
allocated when the data set is first writ- 
ten. For example, if the randomizing tech- 
nique assigns master records to record 
locations between 1 and 9999, the program- 
mer may wish to reserve record locations 
10000 to 12000 for master records that 
become synonyms. 


The programmer must keep a record loca- 
tion counter to keep track of the space 
assigned for synonyms. When a synonym is 
inserted in this space, the record location 
counter must be incremented. The program- 
mer should set up a dummy record in his 
data set to maintain this record location 
counter. When the direct-access data set 
is created, the record location counter 
should be set at the lower limit of the 
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record positions available for synonyms 
(i.,e., record location 10000 in the example 
used above). 


Also an indicator should be reserved to 
indicate to the program that the end of a 
chain has been reached. Since no record 
position is designated as 0, 0 can be used 
to indicate the end of a chain. 


Before a FORTRAN program writes a 
direct-access data set for the first time, 
the data set must be created by writing 
"skeleton records" in the space that is to 
be allocated for the direct-access data 
set. These skeleton records should be 
written by an installation-written program. 
After the skeleton records are written, the 
direct-access data set must be classified 
as OLD in the DISP parameter of the DD 
statement. However, if the skeleton rec- 
ords are not written before direct~access 
records are written by the FORTRAN program 
for the first time, a FORTRAN load module 
automatically creates the data set and 
writes the skeleton records. The program— 
mer indicates that skeleton records have 
not been written by specifying NEW in the 
DISP parameter. When the data set is 
opened, records are initialized as blank 
records (hexadecimal 40). If unformatted 
WRITE statements are then encountered in 
the program, the buffer for the data set is 
initialized to binary zeroes before the 
data is placed in the buffer. If formatted 
WRITE statements are encountered, the buff- 
er is initialized to blanks. 


Figure 53 shows a block diagram of the 
logic that can be used to write a direct 
access data set for the first time. The 
block diagram does not show any attempt to 
write skeleton records. 


Example 3 in Appendix B shows a program 
and job control statements used to update a 
direct-access data set. 


Direct~Access Programming Considerations 


In a job that creates a data set that 
will reside on a direct-access device and 
will be processed by some non-FORTRAN pro- 
gram, the DCB subparameter of the DD state- 
ment must specify DSORG = DA. This speci- 
fication causes the creation of a label 
indicating a direct-access data set. (See 
"Creating a Direct Data Set" in the IBM 
Supervisor and Data Management Services 
publication.) If the direct-access data 
set will not be processed by a non-FORTRAN 
program, the DSORG parameter need not be 
specified since the default specification, 
DSORG=PS, is the one required. 










DEFINE FILE 


Allowing enough 
Space for Synonyms 








Set Record 
Location Counter = 
Lower Limit of 
Space for Synonyms 








Write Record 
Containing 
Record 
Location 
Counter 















End 
of Detail Data 
Set 


Yes 






Randomize 
Identification 


a 


Number to 
Record Location 















Set Record Position 
in Read Statement 
= Chain Variable 














Set Chain 
Variable in Master 
Record = Record 
Location Counter 








Write 
Master 
Record 


Set Record Position 
in Write Statement 
= Record 
Location Counter 














Increment 
Record Location 
Counter by 1 


Figure 53. Writing a Direct-Acce»s Data 


Set for the First Time 


Space must be allocated in the SPACE 
parameter of the DD statement for a data 
set written on a direct-access volume. For 
direct-access data sets, the space allo- 
cated in the SPACE parameter should be con- 
sistent with the record length and number 
of records specified in the DEFINE FILE 
statement in the FORTRAN program. For 
example, in the DEFINE FILE statement 


DEFINE FILE 8(1000,40,E,1) 
the number of records is specified as 1000 


and the record length is specified as 40. 
When this program is executed, the DD 
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statement for this data set should contain 
the SPACE parameter 


SPACE=(40, (1000) ) 


indicating that space is allocated for 1000 
records, with 40 bytes for each record. 


The DEFINE FILE statement for a data set 
must be in a program unit that will not be 
overlaid, but does not have to be in the 
same program unit in which I/C operations 


occur. (If the DEFINE FILE is coded ina 
root segment, there is little chance of 
error.) For example, the DEFINE FILE 


statement can be given in a main program 
with a subprogram performing the I/O opera- 
tions on the data set. However, if an 
associated variable defined in the main 
program is to be used by a subprogram, it 
must be passed to the subprogram in COMMON. 
Since an associated variable is updated by 
I/O operations, the subprogram cannot get 
to the updated value to make use of it in 
its operations unless the associated vari- 
able is in COMMON. 


An associated variable should not be 
passed aS a parameter between a main pro- 
gram and its subprograms because the asso- 
ciated variable is not passed in the same 
way that other variables are passed. Other 
variables reflect the result of any opera- 
tions performed on them in the subprogram. 
An associated variable (if passed as a 
parameter) is not changed by operations 
performed on it in the subprogranm. 


The FIND statement permits record re- 
trieval to occur concurrently with computa- 
tion or I/O operations performed on 
different data sets. By using the FIND 
statement, load module execution time can 
be decreased. For example, the statements 


10 A=SQRT(X) 


52 E=ALPHA+BETA*SIN(Y) 
64 WRITE(9)A,B,C,D,E 
76 READ(8*101)X,Y 


are inefficient because computations are 
performed between statements 10 and 52 and 
an I/O operation is performed on ancther 
data set while record number 101 could be 
retrieved. If the following statements are 
substituted, the execution of this module 
becomes more efficient because record num- 
ber 101 is retrieved during computation and 
I/O operations on other data sets. 
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52 
65 
76 
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FIND(8'101) 
A=SORT (X) 


E=ALPHA+BETA*SIN(Y) 
WRITE(9)A, B,C, D, E 
READ (8'101)X,¥ 


The maximum level of nesting for DO 
loops and implied DOs is 25. 


The maximum number of expressions that 
can be nested is 100. 


The maximum level of nested references 
in an arithmetic statement function 
definition to another statement func- 
tion or a function subprogram is 25. 


The maximum number of source cards for 
one compilation is dependent upon the 
amount of storage available to the com- 
piler. A 400 card program requires 
approximately 90K bytes in PCP or MFT 
systems and 100K bytes in MVT systems. 
However, depending upon the complexity 
of a program, more storage may be 
required. For example, a program con- 
taining a high incidence of input/ 
output statements generates more : 
internal code, resulting in greater 
storage size requirements. 


The maximum number of comment cards 
between two statements is 30. The 
maximum number of continuation cards 
between two statements is 19. There is 
no restriction on the number of comment 
cards at the beginning of a deck. 


The repetition field (a) for format 
codes in a FORMAT statement, if pres- 
ent, must be an unsigned integer con- 
stant less than 256. This restriction 
also applies to execution-time formats. 


The FORMAT statement specification w, 
indicating the number of characters of 
data in the field, must be an unsigned 
integer constant less than 256. This 
restriction also applies to execution- 
time formats. 


In literal constants in the source pro- 
gram, any valid card code is permiss- 
ible, except a 12-11-0-7-8-9 punch. 
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e The maximum number of characters 
allowed in a PAUSE message is 255. 


e The maximum number of nested references 
to another statement function within a 
statement function definition is 50; 
the maximum number of times a statement 
function may be nested is 50. 


e The repetition field (a) for FORMAT 
codes in a FORMAT statement, if pre- 
sent, must be an unsigned integer con- 
stant less than 256. This restriction 
also applies to execution-time formats. 


* The FORMAT statement specification w, 
indicating the number of characters of 
data in the field, must be an unsigned 
integer constant less than 256. This 
restriction also applies to execution- 
time formats. 


e® The debug facility is not supported. 


e The maximum number of arguments in a 
CALL statement is 196. If an argument 
has a variable subscript, that argument 
is counted as two arguments. 


e The maximum number of arguments in 
unique parameter lists in an entire 
program is dependent on the size of the 
compiler, with a maximum of 1024, 


e The maximum number of arguments in a 
Statement Function Definition is 20. 


(If any of the three preceding restric- 
tions is violated, message ITEK550I- 
“PUSHDOWN, ADCON, OR ASF ARGUMENT TABLE 
EXCEEDED" ~ is issued.) 


e The maximum number of literal constants 
and arguments in unique parameter lists 
contained in an entire program is 
approximately 990. (If this restric- 
tion is violated, message IEK500I- 
"SOURCE PROGRAM IS TOO LARGE"- is 
issued. Either the program must be 
segmented or the number of literal con- 
stants and arguments must be reduced.) 


Note: In this version of the compiler, 
Statement Functions are expanded in-line. 





LIB ¥_ CONSIDERATIONS 


The FORTRAN library is a group of sub- 
programs residing in the partitioned data 
set SYS1.FORTLIB. For a detailed descrip- 
tion of the FORTRAN library, see the 
FORTRAN IV Library Subprograms publication, 
Form GC28-6818. A programmer can change 
the subprograms in the library; he can add, 
delete, or substitute library subprograms; 
or he can create his own library. These 
topics are discussed in detail in the 
Utilities publication, Form GC28-6586. 


When the FORTRAN library is changed for 
maintenance or to provide additional fea- 
tures, precompiled programs in a user 
library require special attention to bene- 
fit from the changed library modules. This 
can be accomplished by using the linkage 
edit facilities to include the current 
library modules, and storing the resultant 
load module back into the FORTRAN library. 
When the facilities of the linkage editor 
are used to provide an overlay structure or 
to replace a single control section, care 
should be taken not to mix FORTRAN library 
modules that are at diverse operating sys- 
tem levels. 


This requirement to maintain all library 
routines at the same level also applies to 
IHCADIJST. This module is dynamically 
loaded from the system link library when a 
specification exception occurs. Therefore, 
even though a FORTRAN program is in an 
executable form, if it is at a previous 
release level, it will still LOAD the cur- 
rent IHCADJST with which it may be 
incompatible. 


DD STATEMENT CONSIDERATIONS 


Several DD statement parameters and sub- 
parameters are provided for I/O optimiza- 
tion (see Figure 54). Other DD statement 
parameters are discussed in "Job Control 
Language" and “Creating Data Sets." 


Channel Optimization 


The SEP parameter indicates that I/0 
operations for specified data sets are to 
use separate channels (channel separation), 
if possible. The I/O operations for the 
data set, defined by the DD statement in 
which 


SEP= (ddname {, ddname]...) 
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appears, are assigned to a channel dif- 
ferent from those assigned to the I/0 
operations for data sets defined by the DD 
statements “ddname". Assigning data sets 
whose I/O operations occur at the same time 
to different channels increases the speed 
of I/O operations, 


I/Q Device Optimization 





UNIT subparameters can be specified for 
device optimization. 


VOLUME MOUNTING AND DEVICE SEPARATION: 


fart 
UNIT= (name |, P {L, DEFER] 
{, SEP=(ddname[, ddname}...)1) 


can be specified for volume mounting and 
device separation. The “name” and number 
of units are discussed in the section "Data 
Definition Statement". 


DEFER 
indicates that the volume(s) for the 
data set need not be mounted until 
needed. The control program notifies 
the operator when to mount the volume. 
Deferred mounting cannot be specified 
for a new output data set on a direct- 
access device. 


SEP= (ddname[, ddname]...) 
is used when a data set is not 


 sauscsheetemientensdhe sheneatentamiententnesieesianienteaiaaienteten ten benheathenteaeaietamtenenientenanienetetaneenaian 


SEP=(ddnamel, ddnamej...1+) 2 


UNIT= AFF=ddname 


(name [, {n|P}3][, DEFER] [, SEP=(ddname[,ddname]...1) 2]% sa 


SPACE=(ABSTR, (quantity, beginning-address) [,directory-quantity]) 


CYL 


pal 
SUBALLOC= ( 
Bee iaesteea-denaeh 
ddname 


{, directory-quantity]),/stepname. ddname ) 
See Ena Deore enna nale 


|4The maximum number of repetitions allowed is seven. 

is specified, the delimiting parentheses may be omitted. 

1 is assumed. 

{*This subparameter is applicable only for direct-access devices. 

|SThis subparameter is the only keyword subparameter shown in this figure. Ail the 
| remaining subparameters shown in the UNIT, 


{2If only one “*ddname" 
|2If neither “n"“ nor "P" is specified, 


| positional subparameters. 


|®If£ only “name” is specified, the delimiting parentheses may be omitted. 


Figure 54, 
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SPACE, SPLIT, and SUBALLOC parameters are 


assigned to the same access arms on 
direct-access devices as the data sets 
identified by the list of ddnames. 
This subparameter is used to decrease 
access time for data sets and is 
meaningful only for direct-access 
devices. The operating system pro- 
vides device separation if possible, 
but ignores the SEP subparameter if an 
insufficient number of access arms is 
available. The SEP subparameter in 
the UNIT parameter provides for device 
separation, while the SEP parameter 
provides for channel separation. 


DEVICE AFFINITY: 


device by data sets is 


The use of the same 
specified by: 


UNIT=AFF=ddname 


The data set defined by the DD statement in 
which this UNIT parameter appears uses the 
same device as the data set defined by the 
DD statement “ddname" in the current job 
step. 


Note: Channel separation and affinity 
requests are ignored if the system's auto- 
matic volume recognition feature is used. 


Direct-Access Space Optimization 


The SPACE parameter can be used to spec- 
ify space beginning at a designated track 
address on a direct-access volume. The 


A le 1 


DD Statement Parameters for Optimization 


SPLIT or SUBALLOC parameters may be speci- 
fied instead of SPACE to split the use of 
cylinders among data sets on a direct 
access volume or to use space specified for 
another data set which it did not use. 

(The other SPACE parameter is discussed in 
"Creating Data Sets.") 


SPACE BEGINNING AT A SPECIFIED ADDRESS: 





SPACE=(ABSTR, (quantity, beginning-address) 

[,directory-quantity]) 
specifies space beginning at a partic- 
ular track address on a direct access 
volume. The "quantity" is the number 
of tracks allocated to the data set. 
The "beginning address" is the rela- 
tive track address on a direct access 
volume where the space begins. If the 
data set is a new partitioned data set 
(PDS) the “directory~quantity" speci- 
fies the number of 256-byte blocks 
that are allocated to the directory of 
the data set. 


SPLITTING THE USE OF CYLINDERS AMONG DATA 
SETS: If several data sets use the same 
direct-access volume in a job step, proc- 
ssing time can be saved by splitting the 
use of cylinders among the data sets, 
Splitting cylinders eliminates seek opera- 
tions on separate cylinders for different 
data sets. Seek operations are measured in 
milliseconds, while the data transfer is 
measured in microseconds. 





,cYL 
spit (al |Javerage-recora-1ength| 


» (primary-quantity 
{, secondary-quantity1) |) 


is substituted for the SPACE parameter when 
the use of cylinders is split. If cYyL is 
specified, "n" indicates the number of 
tracks per cylinder to be used for this 
data set. If “average record length" is 
specified, “n" indicates the percentage of 
tracks per cylinder used for this data set. 
The remaining subparameters are the same as 
those specified for SPACE in “Creating Data 
Sets." 


More than one DD statement in a step 
will use the SPLIT parameter. However, 
only the first DD statement specifies all 
the subparameters; the remaining DD state- 
ments need only specify “n". For example, 


//STEPY EXEC PGM=TESTFI 
//¥T08F001 DD SPLIT=(45, 800, (100, 25)) 


//¥T17F001 DD SPLIT=(35) 


//¥123F001 DD SPLIT=(20) 


ACCESSING UNUSED SPACE: Data sets in pre- 
vious steps may not have used all the space 
allocated to them in a DD statement. The 
SUBALLOC parameter may be substituted for 
the SPACE parameter to permit a new data 
set to use this unused space. 


TRK 
SUBALLOC= (4 CYL 
average-record-length 


(,primary-quantity 
{,secondary-quantity] 


{,directory-quantity]) 


ddname 
stepname. ddname ) 


stepname. procstep. ddname 


The data set from which unused space is 
taken is defined in the DD statement 
“ddname", which appears in the step "step- 
name." (The step must be in the current 
job.) The other subparameters specified in 
the SUBALLOC parameter are the same as the 
subparameters described for SPACE in 
"Creating Data Sets." 
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SYSTEM QUTPUT 


The compilers, the linkage editor, and 
load modules produce aids which may be used 
to document and debug programs. This sec- 
tion describes the listings, maps, card 
decks, and error messages produced by these 
components of the operating system. 


Both the FORTRAN IV (G) and the FORTRAN 
Iv (H) compilers can generate, depending 
upon user-specified options, a listing of 
source statements, a table of source module 
names, an object module listing, and an 
object module card deck. Additionally, the 
(H) compiler can generate a structured 
listing of source statements, and a table 
of source module labels. 


Source module diagnostic messages are 
also produced during compilation. 


Source Listing 


If the SOURCE option of the PARM param-~ 
eter of the EXEC statement is specified, 
the source listing is written in the data 
set specified by the SYSPRINT DD statement. 
An example of a source program listing is 
shown in Figure 55. This printout is the 
source listing of the sample program shown 
in Figure 56. (This program will be used 
throughout the remainder of this publica- 
tion for purposes of illustration.) 


Storage Map 


If the MAP option of the PARM parameter 
of the EXEC statement is specified, a table 
of names, which appear (or are implied) in 
the source module, is written in the data 
set specified by the SYSPRINT DD statement. 
The storage map produced differs according 
to the compiler used. 


(Ses 1 
|G ONLY| 
t A table is generated for each of 
seven classifications of variables used in 
the source module. Each table contains the 
names and locations of variables used in 
that particular context. The classifica- 
tions are as follows: 


e COMMON variables 


EQUIVALENCE variables 

e Scalar variables 

® Array variables 

e Subprograms called 

e NAMELIST variables 

e FORMAT statements 

Separate maps are produced for each 
classification, with the appropriate head- 


ing preceding the data. The variable 
names, statement labels or subprogram name 





Cc PREME NUMBER PROBLEM 
ISN 0002 10G WRITE (6,8) 
ISN 9003 6 FORMAT (52H FOLLOWING IS A LIST GF PRIME NUMBERS FROM L TO 1000/ 
119X_ LHL/L9Xs LH2/19X 21 H3) 
ISN 0004 101 1=5 
ISN 0005 3 A=I 
ISN 0006 102 A=SQRT(A) 
ISN 9007 103 J5A 
ISN 0008 104 DO Ll K=3eJe2 
ISN 0009 105 L=1/K 
ISN Q010 106 IFCLOK-L) 15204 
iSN O01] 1 CONTINUE 
ISN 0012 LO7 WRITE (695)E 
ISN GO13 5 FORMAT (120) 
ISN 0014 2 I=I*2 
ISN 0015 106 IF(1000-1)72493 
ISN 0016 4 WRITE (6,9) 
ISN 0017 9 FORMAT (14H PROGRAM ERROR) 
ISN 0018 7 WRITE (6,6) 
ISN 0019 6 FORMAT (31H THIS 1S THE END OF THE PROGRAM) 
ISN 9020 109 STOP 
ISN Q021 END 





Figure 55. Source Module Listing 
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FORTRAN Coding Form 
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Figure 56. Sample FORTRAN IV Program 

























































SUBPROGRAMS CALLED 
SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 
IBCOM# BC SORT co 
SCALAR MAP 
SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 
I C8 A cc J 00 K 04 t ps8 
FORMAT STATEMENT MAP 
SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION SYMBOL LOCATION 
8 oc 5 126 9 12A 6 13¢ 
s ae | 





Figure 57. Storage Map -- (G) Compiler 


are arranged across the page; six to a 2. 
line. However, storage maps of variables 

not used in the source module are not 

produced. 


Figure 57 is an example of a storage map 
produced by the (G) compiler for the sample 
program in Figure 56. 


sacs 1 
| 


Sa 41 Figure 58 is an example of a 
storage map produced by the (H) compiler 
for the program in Figure 56. The figure 
displays the following items: 


1. The first line shows the name of the 
program (MAIN) and the program size in 
hexadecimal (00027C). 


The second line shows headings which 
identify names used in the program. 
These headings and the information 
they describe are as follows; 


a. NAME lists names of all variables, 
statement functions, subprograms, 
and internal functions. 


b. TAG lists variable and name use 
codes. Variable use codes are as 
follows: 


A indicates that the variable was 
used as an argument; i.e., it 
appeared in a parameter list 

F indicates that the variable 
appeared on the right of the 
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equal sign: 
was 


i.e., its value 
used at some time 


indicates that the variable 
appeared on the left of an 
equal sign; i.se., its value was 
stored at some time. 


Name use codes are as follows: 
indicates variables in COMMON 


indicates variables that appear 
in an EQUIVALENCE statement 


IF indicates an internal function. 


NR indicates variables not 


referred to 


indicates arithmetic statement 
functions 


SF 


XF indicates subprograms 


XR indicates variables, arrays, or 
subprograms that are referenced 
by name 


Note that the name code SF 
should not be confused with the 
variable codes S and F. Codes 
S and F are positioned left of 
the heading TAG whereas the 
name identifier SF appears 
under the heading (actually, 
beginning under the letter G; 
see the placement of codes for 
the variable I and the subpro- 
gram SQRT in Figure 58). 


c. Type identifies the type and 
length cf each variable. 
d. ADD identifies the relative 


address assigned to each name. 
(All functions and subroutines 
have a relative address of 00000.) 


The FORTRAN (H) compiler also produces a 


GN28-0591 


of any equivalences made for the block. 
The map for each COMMON block contains the 
same type of information as for the main 
Program. The map for the equivalences 
lists the name of each variable along with 
its displacement (offset) from the begin- 
ning of the common biock. 


“ 
|H ONLY| Label Ma 


wenn 4 
In addition to the storage map, specifi- 
cation of the MAP option for the (H) com- 
piler produces a table of statement numbers 
known as a label map. The statement num- 
bers that appear in the source module are 
written in the data set specified by the 


SYSPRINT DD statement. This table 
includes: 
1. The statement number of each source 
label. 
2. The relative address assigned to each 
label. 
3. The symbol 'NR* next to each source 


label that is not referenced. 
Figure 59 shows a portion of the label 


map produced by the (H) compiler for the 
program in Figure 56. 


Object Module Listing 


If the LIST option 
of the EXEC statement 
object module listing 
data set specified by 
statement. 


assembler language format; i.e., 


of the PARM parameter 
is specified, the 

is written in the 

the SYSPRINT DD 


The listing is in pseudo- 


all 


instructions are not valid assembler lan- 


guage instructions. 


The listing produced differs according 


map Of each COMMON block, 


followed by a map 


to the compiler used. 





/ MAIN / 
AME TAG TYPE ADO. NAME TAG TYFE ADD. 
A SFA R¥4 000120 I SF 1*4 000124 
ts 1#4 000130 SQRT XF R*4 000000 


SIZE OF PROGRAM QOO27C HEXADECIMAL BYTES 


NAME TAG 
J SEF 
1sCOM= F 


TYPE ADO. 
I*4 000128 
i*#4 000000 


NAME 
K 


TaG 
SF 


TYPE 
1*4 


ADL. 
00012) 
KF 





Figure 58. Storage Map -- 
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(H) Compiler 


OOACCB NR 
QOAEEO 
OOB1L18 


CCADE4 
CCAEFC 
CCB120 
CCB54C 
CCBETE 


OCB4FO 
OCBSFS 





Figure 59. Label Map -- (H) Compiler 


The object module listing is 
arranged in column format, with headings, 
as follows: 


Column 1: LOCATION--The address in hexa- 
decimal of the instruction. 

Column 2: STA NUM--The source program 
statement numbers of all FOR- 
TRAN executable statements. 

Column 3: LABEL--Source labels and compil- 
er generated labels. 

Column 4& 

and 
Column 5: OP and OPERAND--The actual 


instruction. 


Column 6: BCD OPERAND--Significant items 
referred to in the correspond- 
ing instruction, Cega, entry 
points, labels, variables, and 
constants. 


Figure 60 shows an object module listing 
produced for the program in Figure 56. 


OOAE10 NR 
OOAFIE 
00B412 
00B588 
OOB6A0 


OOAEL4 NR 
00B106 
00B450 
00B5D0 
008778 


H ONLY 
Lemme em 4. The (H) compiler object module 
listing is arranged in columm format as 
follows: 


r 1 
| | 


Column 1: The address (in hexadecimal) of 
the instruction. 

column 2: The assembly format (in hexadec- 
imal) of the instruction. 

Column 3: Source labels and compiler 
generated labels (compiler 
generated labels contain six 
digits). 

Column 4: The actual instruction. 

Column 5: Significant items referred to in 


the corresponding instruction, 
e.g., entry points, labels, 
variables, constants, and tem- 
poraries (.yxx where y is S, T, 
or Q and xx is two digits). 


Figure 61 shows an object module listing 
produced for the program in Figure 56. 


Object Module Card Deck 





If the DECK option of the PARM parameter 
of the EXEC statement is specified, an 
object module card deck is produced. This 
deck is made up of four types of cards -- 
TXT, RLD, ESD, and END. A functional 
description of these cards is given in the 
following paragraphs. 
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BCD OPERAND 


LOCATION STA NUM LABEL oP OPERAND 

000000 BC 1521200715) 

000004 oc 06D4C1C9 

000008 DC D5404040 

00 000C STM 14,12,12(13) 

000010 LM 293940115) 

000014 LR 4213 

000016 L 13+3610,15) 

OOOOLA ST 1358(054) 

OOOOLE STM 304,0(13) 

000022 BCR 1542 

000024 DC 00000000 AG 
000028 pc 00000000 A20 
00002C DC 00000000 A36 
OOD0LA8 A36 t 132400713) 

OOOLAC L 14212(0+13) 

0900180 1M 2012228(13) 

0001 B4 MVI 121315255 

000188 BCR 15.14 

OOOLBA A20 L 154140013) IBCOM# 
O001BE LR 12,13 

3001C0 LR 1394 

9001C2 BAL 14,64(0,15) 

O001LC6 LR 13,12 

ooo1cs 1 100 a 157 140(0713) 1BCOM# 
ooo1cc BAL 145400715) 

9001D0 oc 00000006 

0001D4 oc o00000DC 

000108 BAL 14,16(0+15) 

OOOLDC 3 101 L 0,36010,13) 

OO01E0 ST 0+152(0713) I 
OOOLE4 4 3 L 0, 152(0,13) I 
OOOLES LPR 1,0 

OOOLEA ST 19324(0,13) 

OOOLEE LD 0,320(0713) 

OOOLF2 AD 0,304(10,13) 

OOOLF6 LTR 0,0 

OOO1F8 RALR 14,0 

OOOLFA BC 11,600,14) 

OOOLFE LCDR 0,90 

000200 STE 0-156 (0913) A 
000204 5 102 LA 1+148{0+13) 

0002 08 L 15,144(0,13) SQRT 
o0020C BALR 14,15 

OCO2Z0E STE 0+156(0+13) A 
000212 6 103 SDR 0,0 

000214 LE 0+156(0,13) A 
000218 AW 0,3361(0,13) 

0G021C STD 0» 328(0,13) 

000220 t 0-33210+13) 

000224 LTDOR 0,0 

000226 BALR 14,0 

000228 BC 11260014) 

00022C LCR 0,0 

00022E st 0160(0,13) J 
000232 T 104 L 0 4364(0,13) 

000236 L44 ST 0:16410,13) K 
00023A 8 105 L 0,152(0,13) I 
O0O23E SRDA 073210) 

000242 D 0216410913) K 
000246 ST 1,168(0,13) L 
DOO2Z4A 9 106 L 1+16800,13) L 
00 024E M 0+16410,13) K 
000252 S 1¢152(0913) if 
000256 LTR 1,1 

000258 L 14,104(0.13) 2 
00025C BCR 8,14 

0002 5E L 142108(0,13) 4 
000262 BCR 2914 

000264 10 1 L 0+164(0,13) K 
000268 L 1,116(0,13) L44 
00026C LA 2924020) 

000270 L 3, 160(0,13) J 
000274 BXLE O.2,001) 

Figure 60. Object Module Listing -- (G) Compiler (Part 1 of 2) 
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000278 
0002 7C 
000280 
0002 84 
0002 88 
0002 8C 
000290 
000294 
000298 
00029C 
0002A0 
0002 A4 
000248 
QO002AA 
Q002AE 
900280 
000284 
000286 
0002BA 
Q002BC 
0002C0 
0002C4 
0002C8 


0002CC 


900200 
0002D4 
000208 
0002DC 
0002E0 
O002E4 
0002E8 
OOO02EC 


*OPTIONS IN EFFECT* 
*OPTIONS IN EFFECT 


ll 


13 


14 


17 


19 


*STATISTICS* 
¥STATISTICS* 


107 


108 


109 


NAME 





$T 


LTR 


L 
BCR 
L 
BCR 
L 
BCR 
BAL 
bc 
oc 
BAL 
L 
BAL 
DC 
ie 
BAL 
L 
BAL 
bc 
OC 
END 


MAIN 
SOURCE STATEMENTS 
NO DIAGNOSTICS GENERATED 


15914010513) 
1464(0415) 
00000006 
00000126 
14,8(0,15) 
04500098 

14, 160,15) 
0915240,13) 
0, 36810-13) 
0915210913) 
0237210913) 
0915210013) 
050 
14911210413) 
4114 
1429610113) 
2914 
15¥14010,13) 
070 
149410915) 
00000006 
OO00G12ZA 
1491610,15) 
15214010, 13) 
1454(0,15) 
00000006 
0000013C 
1421610,15) 
15414010713) 
1425240515) 
05404040 
40F0 


NOIOD sEBCDIC, SOURCE yLIST» NODECK »L OAD, NOMAP 
LINECNT = 
20, PROGRAM SIZE 


IBCOM# 


3 


IBCOM# 


IBCOM# 


IBCOM# 


750 








Figure 60. 


Object Module Listing -- (G) Compiler (Part 2 of 2) 
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TXT Carcis for 
Temp Storage 
and Constants 







TXT Cards for 
FORMAT 
Statements 












a 
TXT Cards fo. 
Address 
Constants 










TXT Cards for 
Literal 
Constants 












a 
TXT Cards for 
Subprogram 
Addresses 







TXT Cerds for 
NAMELIST 
Tables 












ime 
TXT Cards for 
om Subprogram 
ESD, Type 2 Argument Lists 
External 
References 


ESD, Type 5 
COMMON Area 
_ 
£SD, Type 1 
Entry Points 














TXT Cards for 
the BRANCH 
Table 







p 
TXT Cards for 

“he BASE 
Table 












SD] fs 
: ESD, Type 0 TXT Cards for 
rogram Name if 
of the Object Object 
Module Code 
___ Module 

























Figure 62. Object Module Deck Structure -- 
(G) Compiler 
an End Card 

ESD, Type 2, and 
RLD for External 
References in 
CALL, EXTERNAL, RLD Cards for 
and 5tazements ‘he Branch List 
Using Subprograms Sar 

f re i 

ESD, Type 5 TXT Cards for 












Indicating the the Branch List 


Existence of the 
COMMON Area 









TXT Cards 
for Object 
Module Instruct ons 






TXT Cards 
for Compiler 
Generated 
Canstants 


“TXT Cards for 
Coded FORMAT 
Statements 












ESD, Type 2 and 
RLD for Compiler 

Generated External 
References 


























ESD. Type 1 Giving 
Entry Points from 
ENTRY Statements 





TXT Cards 
for Source 
Module Constants 


Object Module Deck Structure -- 
(H) Compiler 







ESD, Type 0 
Giving the Name 
of the Object 
Medule 





Figure 63. 


r 
| 


If the compiler XREF option is speci- 
fied, a cross reference listing of 
variables and labels is written in the data 
set specified by the SYSPRINT DD statement. 
The variable names are listed in alphabet- 
ical order, according to length. (Variable 
names of one character appear first in the 
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listing.) The labels are listed in ascend- 
ing sequence along with the internal state- 
ment number of the statement in which the 
label is defined. 


For both variable names and labels, the 
listing also contains the internal state- 
ment number of each statement in which the 
variable or label is used. Figure 64 shows 
a compiler cross reference listing produced 
for the program in Figure 56. 


; 
|H ONLY |Structured Source Listing 


L~--—-~J 


If the EDIT option is specified, a 
structured source listing is written in the 
data set specified by the SYSPRINT DD 
statement. This listing is independent of 
the usual source listing and indicates the 
loop structure and logical continuity of 
the source program. 


Each loop is assigned a unique 3-digit 
number. Entrance to the loop is indicated 
by a left parenthesis followed by a 3-digit 
loop number +~~- (xxx -- before the internal 
statement number of the first statement in 
the loop; exit from the loop is indicated 
by the 3-digit loop number followed by a 
right parenthesis -- xxx) -- on a separate 
line before the next non-comment line. 


INTERNAL STATEMENT NUMBERS 

0005 0006 0606 «Go07 

000% 0065 0609 6OLCO O01? 0014 
Ooo07 o0oB 
0003 0O0G9 
0009 0010 
Qugs 


SYMBUL 
A 


GO14 0015 


ould 


DEFINED 
OolL 
0014 
0095 
GOl6 
9013 
001g 
OOLs& 
0093 
o0%7 
0072 
0094 
0006 
00%7 
00798 
0019 
0010 
0012 
0015 
0020 


REFERENCES 
ooce 0010 
0010 
o0i5 
0G10 
0012 
0018 
0015 
0002 
0G16 


Oo01L5 





Compiler Cross Reference List- 
ing -- (H) Compiler 


Figure 64, 


Indentations are used to show dominance 
relationships among executable source 
statements. Statement A dominates state- 


ment B if A is the last statement common to 
all logical paths from which B receives 
control. Statement A is called a domina- 
tor, Statement B is called a dominee. By 
this definition, a statement can have only 
one dominator, but a dominator may have 
several dominees. For example, a computed 
GO TO statement is the last statement 
through which control passes before reach- 
ing three other statements. The GO TO 
statement is a dominator with three 
dominees. 


A dominee is indented from its dominator 
unless it is either the only dominee or the 
last dominee of that dominator. The line 
of sight between a dominator and its 
dominee(s) may be obscured by intervening 
statements. This is a dominance discon- 
tinuity and is indicated by C--- ona 
separate line above the dominee. 


Comments and non-executable statements 
are not involved in dominance relation- 
ships; their presence never causes a 
dominance discontinuity. Comments line up 
with the last preceding non-comment line; 
nonexecutable statements line up either 
with the last preceding executable state- 
ment or with the first one following. 


Figure 65 shows a structured source 


listing produced for the program in Figure 
56. 


Source Module Diagnostics 


FORTRAN IV (G) and (H) compiler messages 
are described in Appendix D. 


LINKAGE EDITOR OUTPUT 


The linkage editor produces a map of a 
load module if the MAP option of the PARM 
parameter of the EXEC statement is speci- 


fied, or a cross reference list and a map 
if the XREF option is specified. The 
linkage editor also produces diagnostic 
messages, which are discussed in the 


Linkage Editor and Loader publication. 


Module Map 


The module map is written in the data 
set specified in the SYSPRINT DD statement 
for the linkage editor. To the linkage 
editor, each program (main or subprogram) 
and each COMMON (blank or named) block is a 
control section. 


Each control section name is written 
along with origin and length of the control 
section. For a program and named COMMON, 
the name is listed; for blank COMMON, the 
name SBLANKCOM is listed. The origin and 
length of a control section is written in 
hexadecimal numbers. A segment number is 
also listed for overlay structures (see the 


Linkage Editor and Loader publication). 


For each control section, any entry 
points and their locations are also writ- 
ten; any functions called from the data set 
specified by the SYSLIB DD statement are 
listed and marked by asterisks. 


The total length and entry point of the 
load module are listed. Figure 66 shows, 
for the (G) compiler, a load module map 
produced for the program in Figure 56; the 
map produced for the (H) compiler is shown 
in Figure 67. 
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|IHC2191 

{TRACEBACK FOLLOWS ROUTINE ISN 

{ IBCOM 

| MASTR 010 
PAYROLL 


{ 
{ENTRY POINT = 00005000 


pisces 70. 


Note: For an assembler language program or 
subprogram, the internal statement number 
field contains the value of the binary 
calling sequence identifier specified in 
the CALL macro instruction or equivalent 
coding. If no identifier was specified, 
the field is either blank or its contents 
are meaningless in the tracehack. 


If the traceback cannot be completed, 
the message TRACEBACK TERMINATED is issued 
and the job step is terminated. This mes- 
sage appears only if either 13 names of 
subprograms appear in the traceback or a 
calling loop has been detected (e.g., sub- 
program A calling B calling A). 


At the end of the traceback, whether it 
was completed or not, the entry point of 
the main FORTRAN program is given in 
hexadecimal. 


Figure 70 shows the traceback informa- 
tion placed in the error message data set 
for the following example. 


Example: A FORTRAN program PAYROLL calls 
the subroutine MASTR, which contains a READ 
statement. The IHCFIOSH routine is called 
to perform the input operation, but an 
error condition arises because there is no 
DD statement for the data set. 


Explanation: PAYROLL was entered at loca- 
tion 5000 and called MASTR at internal 
statement number (ISN) 10 in PAYROLL. 
IBCOM (in this case, the error occurred in 
the IHCFIOSH routine) would have returned 
to location 68FC in MASTR; MASTR would have 
returned to location 5378 in PAYROLL and 
PAYROLL would have returned to location 
3148 in the supervisor, Execution ter- 
mMinates and a condition code of 16 is 
returned to the operating system. 


Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are pro- 
duced when one of the following occurs: 


112 


1 

| 

REG. | 
820068FC | 
00005378 | 
00003148 | 
} 


REG. 1 
XXXXXXXX 


REG. 0 
XXXXXXXX 


14 REG. 15 
XXXXXXXX 
XXXXXXXX 


XXXXXXXX XAXXXXXX 


a i i a ae i a ce ee ee a a ee ee a SS A ee ee 


sample Traceback for Execution-Time Errors 


Protection Exception (4) 
Addressing Exception (5) 
Specification Exception (6) 

Data Exception (7) 

Fixed-Point Divide Exception (9) 
Exponent-Overflow Exception (C) 
Exponent-Underflow Exception (D) 
Floating-Point Divide Exception (F) 


The characters in parentheses following 
the exceptions are PSW codes that appear in 
the program interrupt message to indicate 
the type of exception. Appendix D contains 
a complete description of the message and 
its format. 


The program interrupt messages are writ- 
ten on a data set specified by the pro- 
grammer. (See "FORTRAN Job Processing.") 
Operator intervention is not required for 
any of these interruptions. 


ABEND Dump 


If a program interrupt occurs that 
causes abnormal termination of a load 
module, an indicative dump is given (i.e., 
only the contents of significant registers, 
indicators, etc., are dumped). However, if 
a programmer adds the statement 


//GO.SYSABEND DD SYSOUT=A 


to the execute step of a cataloged proce- 
dure, main storage and significant regis- 
ters, indicators, etc., are dumped. (For 
information about interpreting an ABEND 


dump, see the Guide to Debugging 
publication.) 


Operator Messages 


A message is transmitted to the operator 
when a STOP or PAUSE is encountered during 
load module execution. Operator messages 
are written on the device specified for 
operator communication, For a description 
of these messages, see Appendix Db 


The value associated with the STOP 
statement (0 if a value is not coded) is 
passed to the next job step and can be 
tested as a condition code by the COND 


parameter in the EXEC statement. This con- 
dition code will have a value of 16 if FOR- 
TRAN terminates the step because of a 


respectively, are specified in in the PARM 
field of the EXEC statement. The storage 
map and diagnostic messages are produced on 


detected execution error. 


ment, 


like CALL EXIT, 


The STOP state- 


terminates a FORTRAN 


program and causes automatic closing and 
positioning of FORTRAN data sets, 
writing out of the last buffer on output, 

the releasing of dynamic storage, the clos- 
ing of data sets, etc. 


LOADER OUTPUT 


i.e., the 


The loader produces error and diagnostic 
messages and a storage map of the loaded 


program if the PRINT and MAP options, 


the data set specified in the SYSLOUT DD 


statement. 


The diagnostic messages are 


fully described in the Messages and Codes 
publication. 


and entry point defined in the program. 


The storage map includes the name and 
absolute address of each control section 


It 


is written on SYSLOUT concurrently with 
input (SYSLIN) processing, as its entries 
appear in the same order as the input ESD 
items. 
of the loaded program are also included. 
Figure 71 shows the storage map produced 
for the program in Figure 56. 





NAME TYPE 





ADDR 


NAME TYPE 


OPTIONS USED - PRINT, MAP, LET, CALL, RES, SIZE=102400 


ADDR 


OS/360 LOADER 





The total size and storage extent 





NAME TYPE ADDR NAME TYPE ADDR “NAME TYPE ADDR 
MAIN SD 63360 ITHCSSORT* SD 63650 SQRT * LR 63650 IHCECOMH* SD 63798 IBCOM# * LR 63798 
FDIOCS# * LR 63854 INTSWTCH* LR 646B6 IHCCOMH2* SD 646D0 SEQDASD * LR 64958 IHCERRM * SD 64chKo 
ERRMON * LR 64c4uQ IHCERRE * LR 64c58 IHCUOPT * SD 65200 IHCEFNTH* SD 65500 ARITH# * LR 65500 
ADJSWTCH* LR 6586C IHCEFIOS* SD 65A18 FIOocS# * LR 65A18 FIOCSBEP* LR 65A1E IHCFCVTH* SD 66098 
eta ae oa pcos FCVAOUTP* LR 66D42 FCVLOUTP* LR 66DD2 FCVZOUTP* LR 66F22 FCVIOUTP* LR 672c8 
R CA FCVCOUTP* LR  679E4 INT6SWCH* LR  67CCB IHCUATBL* SD 67E30 IHCETRCH* 
IHCTRCH * LR 68038 ERRTRA * LR 68040 nee, a 
TOTAL LENGTH 4F68 
ENTRY ADDRESS 63360 
= ees fs cia Sl Seat gi cr att 
eFigure 71. Storage Map Produced by the Loader 
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LINKAGE EDITOR OVERLAY FEATURE 


Overlay is a feature of linkage editor 
processing that allows the FORTRAN pro- 
grammer to reduce the main storage require- 
ments of his program by breaking it up into 
two or more segments that need not be in 
main storage at the same time. These seg- 
ments can be assigned the same relative 
storage addresses and can be loaded at dif- 
ferent times during execution of the pro- 
gram. The programmer uses linkage editor 
control statements to specify the relation- 
ship of segments within the overlay 
structure. 


DESIGNING A PROGRAM .FOR OVERLAY 





Programs are placed in an overlay struc- 
ture according to the size, frequency of 
use, and logical relationships between the 
program units that they comprise. The 
basic principle of overlay is illustrated 
by the simple example in Figure 72. It 
shows a FORTRAN program consisting of a 
main program and two very large subprograms 
named SUBA and SUB. Normally, all three 
program units would be loaded into main 
storage at the same time and would remain 
there throughout execution of the entire 
program. However, if there was not enough 
main storage space available to accommodate 
all three program units at once, and if 
SUBA and SUBB did not have to be in main 
storage at the same time, the programmer 
could design an overlay structure in which 
the MAIN routine stayed in main storage at 
all times, while subprograms SUBA and SUBB 
made use of the remaining space as they 
were needed. 


Bees Se ee Gee eS ag Vea Nee sg get ee 1 
| I 

MAIN | 
I | 
rare rarer 
| SUBA I 
| | 
aaa a are OF 1 
| | 
I SUBB | 
| | 
be 1 ee a a 4 


A FORTRAN Program Consisting of 
Three Program Units 


Figure 72. 


Figure 73 shows what happens at execu- 
tion time to the program in Figure 72. The 
MAIN routine is loaded and processing 
begins. When the MAIN routine calls SUBA, 
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SUBA is loaded and processing continues 
until SUBB is called. SUBB then overlays 
SUBA in main storage and remains there 
until SUBA is called again. The main 
storage requirements of the program are 
thus reduced from the total number of bytes 
in all three program units to the total 
number of bytes in the MAIN routine plus 
the larger of the two subprograms. 


Main Storage 





Problem 
Program 
Area 





Time 0Q--------~—-—---~~—.—-----.~— >n 


Time/Storage Map of a Three 
Segment Overlay Structure 


eFigure 73. 


SEGMENTS 


The relationships among the program 
units in the overlay program described 
above can be graphically represented by an 
overlay "tree" structure, as shown in 
Figure 74. Each “branch" of the overlay 
tree consists of a separately loadable unit 
of the program to which the linkage editor 
assigns a number. These overlay segments 
may contain one or more subprograms total- 
ing 512K bytes (524,288 bytes). 


The first segment in any overlay program 
is called the root segment. The root seg- 
ment remains in main storage at all times 
during execution of the program. It must 
contain: 


e The program unit which receives control any program unit which it calls or whose 
at the start of processing. Usually data it must process. 
this is the main routine in which pro- 
cessing begins at the entry point named 


MAIN. Path i Path 2 
(har so SSS 1 acer pa dea 1 
e Any program units which should remain | | i | 
in main storage throughout processing. | | I i 
For greater efficiency, subprograms | MAIN | | MAIN l 
which are frequently called should also | | | | 
be placed in the root segment if I | I | 
possible. L--———7—-————— 4 bo —-—-—y—-———— J 
| 
e Any program units containing DEFINE | | 
FILE statements. | | 
| 
* Any automatically called FORTRAN | 
library subprograms. These are placed | | 
in the root segment automatically by .--- 4-—-———— 4 r---- L-_—-—4 
the linkage editor when it processes | | | 
the overlay program. | | | | 
| SUBA | | SUBB | 
e Certain information which is needed by | | I | 
the operating. system to control the | | | | 
Overlay operation. Like the FORTRAN t-—---——_ +—-———J L-—--~~----—— 4 
library subprograms, this information 
is automatically included in the root eFigure 75. The Paths in the Overlay Tree 
segment by the linkage editor. in Figure 74 
Segment 1 Figure 76 shows a FORTRAN program in an 
(ROOT) overlay tree structure. The paths implied 
.----- 1 by that structure are illustrated in Figure 
| | 77. + +‘The MAIN routine and subprograms SUB1 
| MAIN | 
| { 
t_.—-y---J 
| Segment 1 
Segment 2 | Segment 3 (ROOT) 
possess ees Boe seo se 
| {| MAIN | 
p-——--4+---4 proeteaan4 | SUB1 | 
| SUBA I {| SUBB | t-------] 
Loo 4 lope cn 4 | suB2 | 
tL_-__,—--4 
eFigure 74. Overlay Tree Structure of Three Segment 2 | Segment 6 
Program Units (ros 4-———_——————— + 
| ALPHA H 
pepnne takeres es Rene 
{ SUB3 | {| SUB11 | 
PATHS J+------ 4 }------- 4 
| SUBS | | SUB12 | 
t--__,---J eee J 
The relationships among the segments of | 
an overlay program are expressed in terms (777 +---------- 1 
of “paths". A path consists of a given | BETA | | 
segment and any segments between it and the l | | 
root segment. The root segment is thus a promote nny ponte nyt 7 
part of every path, and when a given seg- { SUB5 {| {| SUBm8 {| {| SUB10 | 
ment is in main storage, all segments in f--------4. }------ 4 t------~- 4 
its path are also in main storage. The {| sUB6 [| | SUB9 | Segment 5 
simple program in Figure 74 is made up of f------—-— q  t------— 4 
only two paths, as shown in Figure 75. {| SUB7 | Segment 4 
low ced 
The paths of an overlay program are Segment 3 
determined by the dependencies between the 
program units which it comprises. A pro- eFigure 76. Overlay Tree Structure Having 
gram unit is considered to be dependent on Six Segments 
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stream following the //SYSIN DD* card, or 
after the //LKED.SYSIN DD* carc if a cata- 
loged procedure is used. Linkage editor 
control statements have the following form: 


(a ee ea pai a a a a 1 
j Operation | Operand | 
PS ees See aeeee eens cm { 
{| verb | operand(s) | 
Vea BS ee oo een Se J 
where "verb" is the name of the operation 


to be performed. The first column of all 
linkage editor control statements must be 
blank, and the operation field, which 
begins in column 2, must contain a verb. 
The operand field, which must be separated 
from the operation field by at least one 
blank, must contain one or more symbols 
separated by commas. No embedded blanks 
may appear in the operand field. Linkage 
editor control statements are placed 
before, between, or after modules in the 
input stream. They may be grouped, but 
they may not. be placed, within a module. 


The most important control statements 
for implementing an Overlay program are the 
OVERLAY, INSERT, INCLUDE and ENTRY state- 
ments. The OVERLAY statement indicates the 
beginning of an overlay segment. The 
INSERT statement is used to rearrange the 
sequence of object modules in the resulting 
load module(s). The INCLUDE statement is 
used to incorporate input from secondary 
sources into the load module. The ENTRY 
statement specifies the first instruction 
fo be executed. 


The OVERLAY Statement 





The OVERLAY statement indicates the 


beginning of an overlay segment. Its gen- 
eral form is: 

gm aaa ag a a q 
} Operation | Operand | 
oie es A ee eae 4 
J} OVERLAY | symbol | 
tee we Fe See Mba ee d 


where the operand "symbol" is the program- 
mer's identification of the beginning of 
the segment, that is, the symbolic name of 
the relative origin. Such symbols may be 
any group of from one through eight alpha- 
meric characters beginning with an alpha- 
betic character. 


The OVERLAY statement for a segment is 
placed in one of three places: directly 
before the object module deck for the first 
program unit of the new segment, or before 
an INSERT statement specifying the program 
units to be placed in the segment, or 
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before an INCLUDE statement specifying the 
program units to be placed in the segment. 
Assuming that object module decks are 
available, the input deck to the linkage 
editor for the program in Figures 76 and 77 
could be arranged as follows: 


Pease 1 
[MAIN | 
|SUB1 |7object module deck 
| SUB2 i 


OVERLAY ALPHA 


(eae 
|SUB3 | 

| object module deck 
| SUB4 i{ 


| SUBS I] 
|SUB6 |>object module deck 
|SUBT7 if 
foe J 
OVERLAY BETA 
to 1 
| SUBS il 
| ;object module deck 
| SUB9 i 


ENTRY MAIN 


The order in which the overlay segments 
are specified has nothing to do with the 
order of execution, which is determined by 
subprogram references; however, once a sym- 
bolic name has been specified for a point 
of origin, it may not be used again in the 
deck after specifications have been made 
for a point higher in the overlay tree. 
Thus, in the example above, no further seg- 
ments could be specified for load point 
BETA after the second specification for 
load point ALPHA. 


An OVERLAY statement must never be 
placed before the root segment. 


The INSERT Statement 


There are many instances in which it is 
inconvenient or impossible for the pro- 
grammer to position object module decks 
physically in the input stream. Library 
routines, which are normally placed in the 


root segment, and routines compiled in an 
earlier step in the same job, are examples 
of program units for which the object 
module decks are not available for posi- 
tioning at the time the job is set up. 


The INSERT statement is used to position 
control sections from such program units in 
an overlay structure. A control section, 
or CSECT, is the operating system designa- 
tion for the smallest separately relocat- 
able unit of a program. Examples of FOR- 
TRAN control sections are: main programs, 
subprograms, blank and named COMMON blocks. 


The INSERT statement has the form: 


ep ann en nn 7 


| Operation | Operand | 
}------------- 4--------------------------- 4 
| INSERT | csectname(,csectname ...] | 
beeen eien to eed 


where "csectname"™ is the name of the con- 
trol section to be positioned. Multiple 
operands, separated by commas (not blanks), 
may be specified. 


The INSERT statement is. placed directly 
after the OVERLAY statement for the segment 
containing the control section. If the 
control section is to be positioned in the 
root segment, the INSERT statement is 
placed before the first OVERLAY statement. 


Using INSERT statements and a FORTRAN 
source deck, the overlay structure speci- 
fied in Figures 76 and 77 couid be imple- 
mented as follows: 


| caetetesteantenientunsiententatieatententeententeniantineed 


| FORTRAN source deck| 
[containing units 
ieee through SUB1i2 | 


ae MAIN 

INSERT MAIN, SUB1,SUB2 
OVERLAY ALPHA 

INSERT SUB3, SUB4 
OVERLAY BETA 

INSERT SUBS, SUB6,SUB7 
OVERLAY BETA 

INSERT SUB8, SUB9 
OVERLAY BETA 

INSERT SUB10 

OVERLAY ALPHA 

INSERT SUF11, SUB12 


If INSERT statements are used more than 
once in the same program for a control sec- 
tion of the same name, the CSECT will be 
positioned in the segment specified by the 
first occurrence of the CSECT name in the 
input stream. Any additional INSERT state- 
ments referring to the CSECT will be 
ignored and, at execution time, all 
references to the CSECT will resolve to the 
first one positioned. Thus, if a subpro- 


gram is required in more than one path, it 

must be either inserted in the root segment 
or renamed before being used with an INSERT 
statement. 


The INCLUDE Statement 





The INCLUDE statement is described in 
the section “FORTRAN Job Processing.“ When 
used in an overlay program, the INCLUDE 
statement is generally placed in the seg- 
ment in which the material to be included 
is required. It is possible to manipulate 
the control sections which were added by an 
INCLUDE statement through the use of the 
INSERT statement. Assuming that the con- 
trol sections of the overlay program from 
the previous examples resided in libraries 
as follows: 


Peru La ee 


| LIBA | 


[LIBB | 
|SUB5 | 
Ae nae |SUB6 | 
|SUB7 | 
|SUBS | 
{SUBS | 
|SUB10 | 
|SUB11 | 
| SUB12| 
(a | 


Then the overlay structure could be imple- 
mented by the use of the following control 
statements: 


ENTRY MAIN 

INCLUDE LIBA(BOOK1) 
INCLUDE LIBB 
OVERLAY ALPHA 
INCLUDE LIBA(BOOK2) 
OVERLAY BETA 
INSERT SUB5,SUB6,SUB7 
OVERLAY BETA 
INSERT SUB8,SUB9 
OVERLAY BETA 
INSERT SUB10 
OVERLAY ALPHA 
INSERT SUB11,SUB12 


The ENTRY Statement 





The ENTRY statement specifies the first 
instruction of the program to be executed. 
It has the form: 


See SS ee ee 
| Operation | Operand | 
<== - +—----------——_------ 4 
| ENTRY | External-name | 
bos es SS I hr aE has 4 
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alone.) IBM provides a default of 95 
entries; the programmer can provide addi- 
tional entries during system generation. 
Figures 82 and 83 describe the fields of 
the option table and list the system 
generation default values for the contents 2. 
of these fields. Table 20 shows the system 
generation default values for each error 
condition. Note that default values can be 
overridden only; they cannot be permanently 
changed. 


SUBPROGRAM FOR THE EXTENDED ERROR HANDLING 
FACILITY 


To make full use of the extended error 
handling facility, the programmer may call 
four IBM-supplied subroutines in his FOR- 
TRAN source program: ERRSAV, ERRSTR, ERR- 
SET, and ERRTRA. These subroutines allow 
access to the option table to alter it 3. 
dynamically.1+ Changes made dynamically are 
in effect for the duration of the program 
that made the change. Only the current 
copy of the option table in main storage is 
affected; the copy in the FORTRAN library 
remains unchanged. All passed parameters, 
unless otherwise indicated, are 4-byte 
(fullword) integers. 


Accessing and Altering the Option Table 
Dynamically 





1. The CALL ERRSAV statement, described 
below, can be used in modifying an 
entry temporarily to save the original 
entry for later restoration. The 
statement causes an option table entry 
to be copied into an 8-byte storage 
area accessible to the FORTRAN 
programmer. 


CALL ERRSAV (ierno,tabent) 


ierno 
is an integer equal to the error 
number to be referenced in the 
option table. Should any number 
not within the range of the option 
table be used, an error message 
will be printed. 


4Certain option table entries may be pro- 
tected against alteration when the option 
table is set up. If a request is made by 
means of CALL ERRSTR or CALL ERRSET to 
alter such an entry, the request is 
ignored. (See Table 18 for which IBM- 
supplied option table entries cannot be 
altered.) 
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tabent 
is the address of an 8-byte storage 
area where the option table entry 
is to be stored. 


To store an entry in the option table, 
the following statement is used: 


CALL ERRSTR (ierno,tabent) 


ierno 
is an integer equal to the error 
number for which the entry is to be 
stored in the option table. Should 
any number not within the range of 
the option table be used, an error 
message will be printed. 


tabent 
is the address of an 8-byte storage 
area containing the table entry 
data. 


The CALL ERRSET statement, described 
below, permits the user to change up 
to five different options in an option 
table entry. A procedure for altering 
only one option without altering 
others is explained in the definition 
of the parameters. Another procedure 
is to omit the final parameter (or the 
last two or three parameters) from the 
calling sequence, or to give the value 
of zero to a parameter to indicate no 
change. 


CALL ERRSET (ierno,inoal,inomes, 
itrace, iusadr, irange) 


ierno 
is an integer equal to the error 
number to be referenced in the 
option table. Should any number 
not within the range of the option 
table be used, an error message 
will be printed. (Note that if 
ierno is specified as 212, there is 
a special relationship between the 
ierno and irange parameters. See 
the explanation for irange.) 


inoal 
is an integer specifying that 
execution be terminated when this 
number of errors has occurred. If 
inoal is specified as either zero 
or a negative number, the specifi- 
cation is ignored, and the number- 
of-errors option is not altered. 
If a value of more than 255 is 
specified, an unlimited number of 
errors is permitted. 


inomes 
is an integer indicating the number 
of messages to be printed. A nega- 
tive value specified for inomes 
causes all messages to be sup- 


pressed; a specification of zero 
indicates that the number-of- 
messages option is not to be 
altered. 


itrace 


is an integer whose value may be 0, 
1, or 2.2 A specification of 0 
indicates the option is not to be 
changed; a specification of 1 
requests that no traceback be 
printed after an error occurrence; 
a specification of 2 requests the 
printing of a traceback after each 
error occurrence. (If a value 
other than 1 or 2 is specified, 
option remains unchanged.) 


the 


iusadr 


Ge 


Ce 


is an optional parameter that may 
contain either: 


the value 1, as a 4-byte integer, 
indicating that the option table 
is to be set to show there is no 
user-exit routine (i.¢e., standard 
corrective action is to be used 
when continuing execution). 


the name of a closed subroutine 
that is to be executed after the 
occurrence of the error identified 
by ierno. The name must appear in 
an EXTERNAL statement in the 
source program, and the routine to 
which control is to be passed must 
be available at linkage editing 
time. 


the value 0, indicating that the 
table entry is not to be altered. 


irange 


is an optional parameter specified 
as an integer that performs a 
double function and indicates that 
the inoal, inomes, itrace, and 
iusadr options values are to be 
applied to the range of error num- 
bers ierno to irange. If irange is 
smaller than ierno, irange is 
ignored (unless ierno has been 
specified as 212). 


If ierno has been specified as 
212, irange functions as a control 
carriage parameter. Thus, if ierno 
is specified as 212, and irange as 
1, single spacing is provided on an 
overflow line (standard fixup for 
WRITE). If a value other than 1 is 
specified, no carriage control is 
provided. (Note that if ierno has 
been specified as 212 and the car- 
riage control option is not to be 
changed, irange must be omitted 
from the call to ERRSET.) 


4, Under the extended error handling 
facility, a user may dynamically requ- 
est a traceback and continued execu- 
tion. To obtain subroutine trace, the 
following statement is used: 


CALL ERRTRA 


The call has no parameters. 


USER-SUPPLIED ERROR HANDLING 


The user has the ability of calling, in 
his own program, the FORTRAN error monitor 
(ERRMON) routine, the same routine used by 
FORTRAN itself when it detects an error. 
ERRMON examines the option table for the 
appropriate error number and its associated 
entry and takes the actions specified. If 
a user-exit address has been specified, 
ERRMON transfers control to the user- 
written routine indicated by that address. 
Thus, the user has the option of handling 
errors in one of two ways: (1) simply by 
calling ERRMON -- without supplying a user- 
written exit routine; or (2) by calling 
ERRMON and providing a user-written exit 
routine. 


In either case, certain planning is 
required at the installation level. For 
example, error numbers must be assigned to 
error conditions to be detected by the 
user, and additional option table entries 
must be made available for these condi- 
tions. The routine that uses the error 
monitor for error service should have the 
status of an installation general-purpose 
function similar to the IBM-supplied mathe- 
matical functions. The number of installa- 
tion error conditions must be known when 
the FORTRAN library is created at system 
generation, so that entries will be pro- 
vided in the option table by the ADDNTRY 
parameter of the FORTLIB macro instruction. 
The error numbers chosen for user subpro- 
grams are restricted in range. IBM- 
designated error conditions have reserved 
error codes from 000 to 301. Error codes 
for installation-designated error situa- 
tions must be assigned in the range 302 to 
899. The error code is used by FORTRAN to 
find the proper entry in the option table. 


To call the ERRMON routine, the follow- 
ing statement is used: 


CALL ERRMON (imes, iretcd, ierno 
{[,datal,data2,...] ) 


imes 
is the address of an array aligned on 
a fullword boundary, that contains, in 
EBCDIC characters, the text of the 
message to be printed. The number of 
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the error condition should be included 
as part of the text, because the error 
monitor prints only the text passed to 
it. The first item of the array con- 
tains an integer whose value is the 
length of the message. Thus, the 
first four bytes of the array will not 
be printed. If the message length is 
greater than 133 characters, it will 
be printed on two or more lines of 
printed output. 


iretcd 


is an integer variable made available 
to the error monitor for the setting 
of a return code. A code of 0 or 1 
can be set. An interpretation of 
these codes follows: 


0 - The option table or user-exit rou- 
tine indicates that standard 
correction is required. 


1 - The option table indicates that a 
user exit to a corrective routine 
has been executed. The function 
is to be reevaluated using argu- 
ments supplied in the parameters 
datai,data2.... For input/output 
type errors, the value 1 indicates 
that standard correction is not 
wanted, 


ierno 


is an integer representation of the 
error condition. The value assigned 
identifies an error condition for 
which there is a unique entry in the 
option table. Should any number not 
within the range of the option table 
be specified, an error message will be 
printed. 


datal,data2... 
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are variable names in an error- 
detecting routine for the passing of 
arguments found to be in error. One 
variable must be specified for each 
argument. Upon return to the error- 
detecting routine, results obtained 
from corrective action are in these 
variables. Because the content of the 
variables can be altered, the loca- 
tions in which they are placed should 
be used only in the CALL statement to 
the error monitor; otherwise, the user 
of the function may have literals or 
variables destroyed. 


Since datal and data2 are the parame- 
ters which the error monitor will pass 
to a user-written routine to correct 
the detected error, care must be taken 
to make sure that these parameters 
agree in type and number in the call 
to ERRMON and in a user-written cor- 
rective routine, if one exists. 


User-Supplied Exit Routine 


When a user-exit address is supplied in 


the option table entry for a given error 
number, the error monitor calls the speci- 


fied subroutine for corrective action. 


The 


subroutine may be user-written and is 
called by the equivalent of the following 
FORTRAN statement: 


CALL x (iretcd,ierno,datal,data2...) 


is the name of the routine whose 
address was placed into the option 
table by the iusadr parameter of the 
CALL ERRSET statement. (Interpreta- 
tions of the other parameters -~ 
iretcd, ierno, datal, data2 -- are the 
same as those for the CALL ERRMON 
Statement.) If an input/output error 
is detected (i.e., an error for codes 
211 to 237), subroutine "x" must not 
execute any FORTRAN I/O statements, 
i.e., READ, WRITE, BACKSPACE, END 
FILE, REWIND, DEBUG, or any calls to 
PDUMP or ERRTRA. Similarly, if errors 
for codes 216 or 241-301 occur, the 
subroutine “x" must not call the 
library routine that detected the 
error or any routine which uses that 
library routine. For example, a 
statement such as 


R=A **® B 
cannot be used in the exit routine for 


error 252, because FRXPR# uses EXP, 
which detects error 252. 


Note that although a user-written cor- 


rective routine may change the setting of 
the return code (iretcd), such a change is 
subject to the following restrictions: 


1. 


2. 


Note, 


If iretcd is set to 0, then datal and 
data2 must not be altered by the cor- 
rective routine, since standard cor- 
rective action is requested. If datai 
and data2 are altered when iretcd is 
set to 0, the operations that follow 
will have unpredictable results. 


Only the values 0 and 1 are valid for 
iretcd. A user-exit routine must 
ensure that one of these values is 
used if it changes the return code 
setting. 


too, that the user-written exit 


routine can be written in FORTRAN or in 


assembler language. 


In either case, it 


must be able to accept the call to it as 


shown above. 


The user-exit routine must be 


a closed subroutine that returns control to 
the caller. 


If the user-written exit routine is 
written in assembler language, the end of 
the parameter list can be checked. The 
high-order byte of the last parameter will 
have the hexadecimal value 80. If the rou- 
tine is written in FORTRAN, the parameter 
list must match in length the parameter 
list passed in the CALL statement issued to 
the error monitor. 


Actions the user may take if he wishes 
to correct an error are described in Tables 
21, 22 (parts 1, 2, 3), and 23. 


OPTION TABLE CONSIDERATIONS 


When a user-written exit subroutine is 
to be executed for a given error condition, 
the programmer must enter the address of 
the routine into the option table entry 
associated with that error condition. 


Addresses for user-exit subroutines can- 
not be entered into option table entries 
during system generation. An installation 
may, however, construct an option table 
containing user-exit addresses and placed 
that option table into the FORTRAN library. 
(Each address must be specified as a V-type 
address constant.) Use of this procedure, 
though, results in the inclusion, in the 
load module, of all such user-exit subrou- 
tines by the linkage editor. 


If the user-exit address is not speci- 
fied in advance through the use of V-type 
address constants, the programmer must 
issue a CALL ERRSET statement at execution 
time to insert an address into the option 
table that was created during system 
generation. 


The programmer should be warned that 
altering an option table entry to allow 
*“unlimited" error occurrence (specifying a 
number greater than 255) may cause a pro-~ 
gram to loop indefinitely. 


Option Table Default Values 


Table 20 shows the default values for 
the option table. If an option recorded in 
a table entry does not apply to a particu- 
lar error condition, it is shown as not 
applicable (NA). 


The field that is defined as the user- 
exit address also serves as a means of spe- 
cifying standard corrective action. When 
the table entry contains an address, the 
user exit is specified; when it contains 
the integer 1, standard correction is spec- 


ified. It is not possible for the system 
generation process to create an option 
table entry with the user-exit address 
specified. The user exit must be specified 
by altering the option table at execution 
time, To specify that no corrective action 
~~ either standard or user-written -- is to 
be taken, the table entry must specify that 
only one error is to be allowed before ter- 
mination of execution. 


HOW TO CREATE OR ALTER AN OPTION TABLE 


As previously explained, the option 
table supplied during system generation may 
be altered dynamically for any particular 
FORTRAN job by the use of the subprograms 
ERRSET and ERRSTR. However, to provide a 
new set of options for the entire installa- 
tion, the option table must be reassembled 
and linkage edited into the FORTRAN library 
-- after system generation and before the 
system is used. A procedure for accomp- 
lishing this is described in the following 
text. 


An assembler language macro definition 
can be used to generate an option table. 
The macro definition and use of the macro 
for each option table entry are supplied as 
input to the assembler procedure ASMFCL to 
replace the system-generated option table 
with the new one. An example of an 
assembler language macro definition used to 
generate an option table is shown in Figure 
84. This example may be used as a guide by 
the user. 


In the example, the macro parameters are 
as follows: 


PREFACE a,b,c 


a 
is the number of user entries to be 
created, 

b 
is the boundary alignment desired. A 
value of 0 is used for no alignment; a 
value of 1 for alignment. 

c 
is the number of times the SETENT 
macro instruction is to be issued. 
(SETENT is described below.) 

SETENT (a,b,c, 4) 

a 
is the error entry to be altered. 

b 


is the count of errors to be allowed. 
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(A specification of 0 indicates un- 
limited error occurrence.) 


c 
is the count of the number of times 
the message should be printed before 
suppression. 

a 


is two hexadecimal digits that specify 
the option bits field. This field is 
described in Figure 83. 


The macro instructions are used as 
follows: 


1. Only one PREFACE macro instruction is 
allowed. 


Ze As many SETENT macro instructions as 
are desired may be used. From 1 to 
200 error entries can be specified in 
the use of a single SETENT macro 
instruction by using continuation 
cards. 


3. Only error entries that differ from 
the default options need be specified. 
The default options will be the same 
as those listed in Table 20. 


4, Error codes must be placed in ascend- 
ing order in the SETENT macro instruc- 
tion. For IBM-supplied entries, error 
codes are in the range 207 to 301. 
User entries are in the range 302 to 
899. 


5. Changing one option for any error 
entry requires that all four parame- 
ters be specified. If default values 
are desired for an entry, they must be 
xespecified. For example: 


SETENT (241,50,5,42) 

indicates that for error 241, the 
number of errors to be allowed is 50; 
the other two parameters, which must 


be specified, are simply the default 
values shown in Table 20. 


ERRORS IN USE OF FACILITY 


When the extended error handling facili- 
ty encounters a condition or a request that 
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requires user notification, an information- 
al message is printed. 


The error monitor is not recursive: If 
it has already been called for an error, it 
cannot be re-entered if the user-written 
corrective routine causes any of the error 
conditions that are listed in the option 
table. Boundary misalignment is therefore 
not allowed in a user~exit routine. 


PROGRAMMING EXAMPLE 


The programming example in Figure 85 
shows how features of the error handling 
facility may be used. 


In the example, a FORTRAN job utilizes a 
user-supplied library subprogram that makes 
use of the error handling facility to 
handle a divide-by-zero situation. A user- 
written routine is supplied to take cor- 
rective action after the detection of the 
error. Comments in the FORTRAN program 
describe what is being done. 


CONSIDERATIONS FOR THE LIBRARY WITHOUT 
EXTENDED ERROR HANDLING FACILITY 


When the extended error handling facili- 
ty is not chosen at system generation, 
execution terminates after the first occur- 
rence of an error, unless it is one caused 
by boundary misalignment, divide check, 
exponent underflow, or exponent overflow. 
The messages for errors 215, 216, 218, 221- 
225, and 241-301 are the same as those with 
the extended error handling facility. The 
other error messages are of the form 
“THCxxxI" with no text. 


Without the facility, ERRMON becomes an 
entry point to the traceback routine. User 
programs that call the error monitor do not 
have to be altered. The error message will 
be printed with a traceback map and execu- 
tion will terminate. 


Note, too, that if the facility is not 
selected at system generation, the ERRTRA, 
ERRSET, ERRSAV, and ERRSTR subprograms are 
assumed to be user supplied if they are 
called in a FORTRAN program. 


(rst SSeS 3 Se ee ee ee mee a a ae es a res me ne i et me a A EN NN A SA SO a A SR Yr a a A a Se 1 
| Format | 
| | 
| <--------—-~-~----------+ -------------- 4 Bytes---------- Wann -- + ---- +--+ - ---- >| 
It Sea See roe eS ea ee 1 | 
! | Number of entries 1 | 
| }----------------------7---- W--~----~--------------1---- ~--------------4------------ 1 | 
| | Boundary alignment [| Extended error handling | Alignment count | Reserved | | 
| Lo. ee anh ee cee as ns tibewcetetian eee tee a Jj | 
{ oe | 
| Description | 
be | 
| r---------1-- te a ee ae SST ~———y | 
| [Field TLength | in| 
| [Contents |in Bytes] Field Description 1 | 
| }--------- +-------- {----~----------------------——-- —---'-------------------=------- 4 | 
{ [Number of | 4 [Number of entries in the Option Table. The default setting 1 | 
| Jentries | jis 95. { 
| [--------- 4--------}------- “—-~------~---=---—--—------------------------------ ~---{ | 
{| [Boundary | 1 [Bit 1 of this byte indicates whether boundary alignment was 1 | 
| {alignment | [chosen at system generation. (Bits 0 and 2 through 7 are t | 
It | |reserved for future use.) {| 
1 | | | i | 
(| I [Bit 1: 0 = NOALIGN | 
11 | | 1 = ALIGN t | 
| | | wee 1 | 
I | t |The default setting is 1 (ALIGN). 1] 
| }--------- }--------4-----------------------=-----------------------=---------------- 4 | 
| [Extended | 1 [Indicates whether extended error handling facility was chosen at| | 
| |exrror { [system generation. 1] 
| [handling | | i | 
tl | | FF (hexadecimal) = EXCLUDE | 
‘| H |00(hexadecimal) = INCLUDE 11 
| }--------- 4---~-+--}-----------——--—---—-----—-----------------------------—------ | 
| |Alignment | 1 |Maximum number of boundary alignment messages when extended {| 
[| |count { jerror handling facility is not chosen. The default setting | 
{1 | | {is 14. | 
| }--------- +------ —}~------------------------------------------------------------——- 4 | 
{| |Reserved | 1 [Reserved for future use. {| 
| &--------- oc pan abe oS es ee ee beet eee eee ee See, 3 | 
Me ek a Se See ee, 4 


Figure 82. Option Table Preface 
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{+The default values shown apply to all error numbers (including additional user 

{| entries) unless excepted by a footnote. 

|2Errors 208, 210, and 215 are set as unlimited, and errors 217 and 230 are set to 1. 

|9When the user sets the count of allowed errors as unlimited, the FORTRAN job may loop 

| endlessly unless the operator intervenes. 

|*Error 210 is set to 10, and errors 217 and 230 are set to 1. 

|®The entry for error 230 is not modifiable, 

ers entry is set to 0 except for error numbers 212, 215, 218, 221, 222, 223, 224, and 
25. 


| | 
| <------1 Byte------ > <-----— 1 Byte-~---- > <onnene 1 Byte------ > <-~---- 1 Byte----—~- > | 
OE teats eg cates ae ei ee FS eEtChlE sea Stal SS SRIGERE SU sa aa a a as 1 | 
{| Number of error |Number of messages | { | 
| joccurrences allowed | to print I Error count { Option bits | 
| p-----~----=---------4-------------------- 4-—-----—----~------ 4------=------------- 44 
(4 User exit address | 
| b--------~--+~-~----------—- +--+ - +--+ +--+ - ++ +--+ +--+ 5 I ttt ts 4 | 
| ! 
{ Description | 
| | 
| rss ace aa oa a a a el ——1 | 
| |Fiela | I I 
1 |conterts |Default* | Field Description ‘| 
| t--------—- }--------}--~----—-- -------+-----------------~------------ === --- | 
{ [Number of | 10% {Number of times this error condition should be allowed to | 
| jerror | [occur. The maximum setting is 255. When the value of the | 
| Joccurrences| Jerror count field (below) matches the value in this field, the| | 
{| Jallowed | |job is terminated. A value of 0 means an unlimited number of | | 
1] | Joccurrences.? An attempt to set this field at a value greater | | 
in| | than 255 results in the field being set to 0. | 
| f----------- +-----~-- 4----------—------------------------------------------------- —1 | 
| | Number | 5 |The number of times to print the error message when this error| 
| | messages I {occurs. Message printing is suppressed thereafter. A value |{ | 
| [to print | [of O means no message is to be printed. i] 
| }----------- fanaa nnn +---~--- Serre spuapeneer oseehiet aaber taper er eaaneeeniisiar aaiapnaeietense"aneni een \ 
| [Error | 0 |A count of the number of times this error has occurred. A | 
} fcount | [value of 0 means none have occurred. | 
| }----------- fon--2-— 4~------~-----~-~--~--------------------------------- ~~-------- 4 | 
{| [Option | 42 [Eight option bits defined as follows: i 
{ [bits | (hexa-  |Bit 0: 0 = no control character is supplied for overflow | 
tt {decimal} | lines. lt 
Ii 1 I 1 = control character supplied, when needed, to | 
(| j | provide single spacing for overflow lines. ] 
| ! I | 
1 | | {The default setting is 0. | 
i | I tt 
lt 1 [Bit 1: 0 = table entry not modifiable.® | 
| t | 1 = table entry modifable. | 
1] | I 1 
{1 f |The default setting is 1. | 
t | i t tt 
| { [Bit 2: 0O = fewer than 256 errors have occurred | 
1] iy | 1 = more than 256 errors have occurred. To determine | 
in| I | how many, add 256 to the value contained in the I 1 
1 | f | error count field (above). | 
tl | I I] 
| i | | |The default setting is 0. tl 
I | I | 
11 | [Bit 3:6 0 = buffer content with message for this error is not | | 
tl I | to be printed. I | 
| | 1 1 = buffer content is to be printed. 1 | 
{ | I ! tt 
td | |The default setting is 0. | 
tl \ i t 1 
| i {Bit 4: Reserved for future use. | 
i} | ! {| 
| i {Bit 5: 0 = unlimited printing of error message was not | 
1 | { | requested. The error message is to be printed tl 
i { | only the number of times shown in the | 
in| | | number-of-messages-to-print field (above). I 
| { { 1 = message is to be printed with every occurrence of | | 
tl 1 | this error. 11 
I I I I 
{ot | |The default setting is 0. { 
!t I I tl 
1 | I [Bit 6: 0 = traceback is not to be printed. i 
| i] { 1 = traceback is to be printed. | 
1! ! I 1 | 
11 i |The default setting is 1. | 
i] ! ! | 
| | [Bit 7: Reserved for future use. | 
| }----------- }-------- 4-----------——--—---—-------------—------------------------- —1 | 
| | User | 1 JA value of 1 in this field indicates that no user-supplied t 
| jexit ] Jexit is to be taken. If a value other than 1 appears in this | 
| | |field, it is the address of the user-supplied exit routine to | 
It | {be taken when this error occurs. 1 
| &--~--------- ea epreeeaea Bg etc i te le St pnt i cc ee a --1 | 
I 
| 
I 
{ 
I 
| 
! 
I 
t 


Figure 83. Option Table Entry 
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Table 20. Option Table Default Values 


fos aS Tao Toc ees Tse Ss SS ee PASTS eae y Caterers ToS Tote aca 
| [Number of |Number of | | [Print | | Standard | | 
|Error| Errors | Messages | |Modifiable|Buffer |Traceback|Corrective |User| 
| Code| Allowed | Allowed [Print Control | Entry {Content| Allowed | Action J Exit | 
}-----4---------- +--------- 4-------------- 4---------- }------- $--------- 4----------- +----4 
| 207 | 10 | 5 | NA | Yes | NA | Yes | Yes | No | 
| 208 |Unlimited | 5 { NA | Yes | NA | Yes I Yes | No | 
| 209 | 10 | 5 | NA | Yes | NA | Yes | Yest | Not| 
| 210 |Unlimited | 10 \ NA | Yes | WA I Yes | Yes2 | No | 
{| 211 | 10 | 5 | NA | Yes | NA | Yes | Yes | No |{ 
| 212 | 10 | 5 |No character | Yes { Yes | Yes | Yes [| No | 
| | | | supplied? | | | | | 
{ 213 | 10 I 5 | NA | Yes | NA | Yes | Yes { No [ 
| 214 | 10 | 5 | NA | Yes | NA | Yes | Yes | No | 
{ 215 |Unlimited | 5 | NA { Yes { Yes | Yes | Yes | No | 
| 216 | 10 | 5 | NA | Yes { WA | Yes | Yes3 { No | 
{ 217 | i* | 1 { NA | Yes | WA | Yes | Yes | No | 
{ 218 | 105 | 5 | NA | Yes [| Yes® | Yes | Yes | No | 
| 219 | 106 \ 5 | NA | Yes | NA | Yes | Yes | No | 
{ 220 | 10 I 5 | NA | Yes | NA | Yes | Yes | No | 
{ 221 | 10 | 5 { NA { Yes [| Yes | Yes | Yes {| No | 
[| 222 | 10 | 5 | NA | Yes | Yes | Yes { Yes | No | 
{ 223 | 10 | 5 | NA | Yes | Yes | Yes | Yes {| No | 
[| 224 | 10 | 5 | NA | Yes | Yes | Yes | Yes | No | 
{ 225 | 10 | 5 | NA | Yes {| Yes | Yes | Yes | No | 
| 230 | 1 | 1 | NA | No | NA | Yes | No | No | 
{ 231 | 10 | 5 | NA | Yes | NA | Yes | Yes | No | 
| 232 | 10 | 5 { NA { Yes | NA ] Yes l Yes {| No | 
| 233-]| 10 | 5 | NA | Yes | NA i] Yes | Yes [| No | 
[| 301] | | | | \ | | | 
f----- bose S ass SS Poole SS Meet ts Se eee St hee ies sheet a dS ets dS se ee 4_----J 
{2No corrective action is taken except to return to execution. For boundary alignment, | 
| the corrective action is part of the support for misalignment. For divide check, the | 
| contents of the result register are not altered. | 
|2If a print control character is not supplied, the overflow line is not shifted to | 
| incorporate the print control character. Thus, if the device is tape, the data is | 
| intact, but if the device is a printer, the first character of the overflow line is | 
| not printed and is t:xreated as the print control. Unless the user has planned the | 
| overflow, the first character would be random and thus the overflow print line control | 
| can be any of the possible ones. It is suggested that when the device is a printer, | 
| the option be changed to single space supplied. { 
|2Corrective action consists of return to execution for SLITE. 1 
|*It is not considered an error if the END parameter is present in a READ statement. No| 
| message or traceback is printed and the error count is not altered. | 
|*For an I/O error, the buffer may have been partially filled or not filled at all when | 
| the error was detected. Thus, the buffer contents could be blank when printed. When | 
| an ERR parameter is specified in a READ statement, it is honored even though the error| 
| occurrence is greater than the amount allowed. { 
|The count field does not necessarily mean that up to 10 missing DD cards will be | 
| detected in a single debugging run, since a single WRITE performed in a loop could | 
| cause 10 occurrences of the message for the same missing DD card. | 
bao Sa Se eS ee Se ee 4 
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« Table 21. Corrective Action After Error Occurrence 

(iF SosIee ae Dab ati aa mo eee ra ea be a al a ay 
| 1 Parameters | { | 
|Error| Passed to| | | 
|code | User | Standard Corrective Action | User~Supplied Corrective Action | 
f-~--- +----------4------------------------------------ 4---------------=~=--------~-~----- =~ { 
} 211 | A,B,C |Treat format field containing C as |(a) If compiled FORMAT statement, put I 
{ { [end cf FORMAT statement | hexadecimal equivalent of character in| 
| j { | Cc (see Note 1). 
j { | {(b) If variable format, move EBCDIC | 
| j | | character into C (See Note 1) i 
l | { { | 
I ! j I I 
| 212 | A,B,D |Input: Ignore remainder of I/O |See Note 2 | 
| i |list. | | 
| | fOutput: Continue by starting new | | 
| { output record. Supply carriage { | 
| t {control character if required by ( | 
| | [Option Table, | | 
| | | | | 
I | | | | 
{ 213 | A,B,D [Ignore remainder of I/O list {See Note 2 | 
| { i I | 
| | { | | 
{ 214 | A,B,D {Input: Ignore remainder of I/0 JIf user correction is requested, the | 
{ H [list. [remainder of the I/O list is ignored. | 
| { fOutput: If unformatted write { i 
i] ] [initially requested changed record | | 
| ! [format to VS (or VBS). If formatted] | 
| | |write initially requested, | t 
| | jignore I/0. I | 
ee | | | 
{ 215 | A,B,E {Substitute zero for the invalid {The character placed in E will be sub- | 
| | |character. [stituted for the invalid character | 
| { | |I/70 operations may not be performed. { 
H t | | (see Note 1) | 
I t { | | 
{ | i | | 
{ 217 | A,B,D [Increment FORTRAN sequence number |See Note 2 { 
| t { and read next file | | 
| I | { | 
| | | | | 
{ 218+[ A,B,D,F [Ignore remainder of I/O list [See Note 2 | 
{ | | | | 
| I | | | 
{| 219-| A,B,D [Ignore remainder of I/O list |See Note 2 | 
[224] | | | 
| | | | | 
I I | | | 
| 225 | A,B,E {Substitute zero for the invalid |The character placed in E will be sub- { 
{ | |character [stituted for the invalid character | 
| { | | (see Note 1) t 
{ | | | | 
| i { | | 
{| 231 | A,B,D [Ignore remainder of I/O list |See Note | 
| | { 
{| 232 | A,B,D,G |Ignore remainder of I/O list eas Note 
| l { | 
| 233 { A,B,D [Change record number to list maximum|See Note 
| ( [allowed (32,000) I 
| | | | | 
{ 234-|{ A,B,D [Ignore remainder of I/O list [See Note | 
ee | | | 
{ 237 | A,B,D,F |Ignore remainder of I/O list |See Note | 
| lac stn anvancie i plein i cs ys ts Se ie nin tsp is J ak ti ie a in len lim ele ee eae el ee eae eee eee eae 4 
| Meanings: | 
{ { 
{A - Address of return code field (Integer*4) | 
{B - Address of error number (Integer*4) t 
ic ~ Address of invalid format character (Logical*1) ! 
1D - Address of data set reference number (Integer*4) | 
{E - Address of invalid character (Logical*1) | 
{F - Address of DECB t 
{G - Address of record number requested (Integer *4) I 
| I 
| Notes: I 
{ 
j 1. Aiternatively, the user can set the return code to 0, thus requesting a standard corrective | 
i action. | 
| | 
{| 2. The user can do anything he wishes except perform another I/O operation - i.e., issue a | 
i READ, WRITE, BACKSPACE, END FILE, REWIND, PAUSE, PDUMP, DBUG, or ERRTRA. On return to the { 
| Library, the remainder of the I/O request will be ignored. | 
| { 

i [4I£ error condition 218 (I/0 error detected) occurs while error messages are being written on the| 
{ object error data set, the message is written on the console and the job is terminated. i] 
If no DD card has been supplied for the object error unit, error message IHC219I is written on 
I the SYSOUT data set and the job is terminated. j 
oe ee eee ee ee eS a ee A Se ee ee ad i 4 
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e Table 22. Corrective Action After Mathematical Subroutines Error Occurrence (Part 1 of 3) 


meee Toes ee ae Tt pe eee res Tee re ae a Ee nF ee 1 
| | | | Options | 
| | | po------=------------- fo ee 4 
l | | Invalid | Standard User-Supplied | 
[Error | FORTRAN { Argument | Corrective Corrective Action | 
| Code | Reference | Range | Action | (See Note 1) { 
}--=---- 4$-----—------ === fon n nn Honan ann ge ae { 
{| 216 | CALL SLITE (1) | I>4 | The call is treated 1 \ 
| | | | as a no operation { | 
1 | | | | | 
| 216 | CALL SLITET | I>4 | J=2 | I | 
| | (ea) { | | | 
| | | | { \ 
{ 241 | K=I*4#7 | I=0, J<O0 | K=0 | I,d | 
| | | I | | 
{ 242 | Y=xX**r { x=0, I<0 | Y=0 | X,1I | 
| | | \ | \ 
| 243 | DA=D**I | D=0, I<0 | DA=0 | D,I | 
| \ \ | | | 
{| 264 | XA=X#*Y | x=0, Y<0 | XA=0 | XY \ 
I | \ | | \ 
| 245 | DA=D**DB | D=0, DB<0 | DA=0 | D,DB | 
| I I \ \ | 
| 246 | CA=C#*r | c=040i, I<0 | CA=0+0i | c,I | 
| | | | | | 
| 247 | CDA=cD#4I | c=0+0i, 1<0 | CA=0+0i | cD,1I | 
| | | \ | | 
{ 251 | Y¥=SORT (xX) | x<0 | yv=|x|4/2 | x | 
I | { \ | | 
| 252 | Y=EXP (X) | X>174.673 | Y=* | x { 
| | | | | { 
{| 253 | Y=ALOG (x) | x=0 | Y=-* { x | 
| | | x<o | Y=1log10|X| | x | 
| | | | | | 
| { Y=ALOG10 (X) | x=0 | Y=-* | x | 
| | | x<0 | y=1og1o1xl | x | 
| | | I | | 
|} 254 | Y=cos (x) | [X]22t840 | Y¥=v272 | X { 
| | Y=SIN (X) | | | | 
| | | | | | 
| 255 | Y=ATAN2 (X, XA) | X=0, XA=0 { Y=0 | X,XA | 
| | | | | | 
{| 256 | Y=SINH (X) | | X{ 2174. 673 { Y=* | x I 
| | Y=COSH (X) | | | | 
| | | I \ | 
| 257 | Y=ARSIN (x) | |x|>2 | y=* | | 
| | Y=ARCOS (x) | { ( IF xX>1.0; eta 
| | I | 
| | | | | IF x<-1.0; ARSIN(X)=-2| I 
I I I | 2\ \ 
| | | | ( IF xX>1.0; ARCOS(X)=0 | | 
I | | I | | 
| | | | ( IF xX<-1.0; ARCOS(X)=7|[ =X | 
| \ | | | | 
| | | | | | 
| 258 | Y=TAN (x) | [X[2C2t8)*a | Y=1 | xX | 
| | Y=COTAN (X) | | | | 
{ | | | | l 
| 259 | Y=TAN (Xx) | X is too close | y=* | x | 
| | | to an odd | | | 
| | | multiple of % | | I 
\ \ | 2 | | | 
bo Mit oo at eee ee Re Ie ea aren ee ee I Ee ee 4 
|Variable Type | 
[I,J Variables of INTEGER*+4 
|X, XA, ¥ Variables of REAL*4 | 
| D, DA, DB Variables of REAL*8 | 
[c,CA Variables of COMPLEX*8 { 
| Ze Xa- Xo Complex variables to be given the length of the functioned argument when 1 
they appear | 
ie Variables of COMPLEX*16 
INotes: 1. The user-supplied answer is obtained by recomputation of the function | 
using the value set by the user routine for the parameters listed. 
| 2. The largest number that can be represented in floating point is | 
| indicated above by *. | 
Ue be ee ee ee ee eek a eee ee a Se re ee eee 4 
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Table 22. Corrective Action After Mathematical Subroutines Error Occurrence (Part 2 of 3) 
oe Toe SS See ee ban ara a aa Te ee ee ge ee 1 
| | | | Options | 
i I | aaa a Tet tss aS ee 4 
| | | Invalid | Standard | User-Supplied | 
{Error | FORTRAN | Argument | Corrective | Corrective Action | 
j Code | Reference | Range | Action | (See Note 1) | 
-------- be itera! 5 aaa en an tected oar fon nn enn nn 1 
{ i | I | | 
| | Y=COTAN (X) | X is too close | Y=* | x | 
| | | to a multiple | | | 
| | | of x | | | 
| I | I | | 
| 261 | DA=DSQORT {D) {| D<Oo | DA=|D|+/2 | D | 
| | | | I | 
i 262 | DA=DEXP (D) | D>174.673 {| DA=* i D | 
I | | | | | 
| 263 | DA=DLOG (D) | D=0 | DA=-* | D I 
| D<O0 DA=1log|{X| | | 

| 
| | DA=DLOG10 (D) | D=0 | DA=-* | D | 
| | | D<o | DA=logi1o0|X| | | 
| | | | =e | | 
| 264 | DA=DSIN (D) | [D|]225°#a | DA=V2/2 i D | 
| | DA=pcos (D) | | | | 
I | | | | | 
265 | DA=DATAN2(D, DB) | D=0, DB=0 | DA=0 | D, DB | 
| | l | | | 
j 266 | DA=DSINH (D) | |D[2174.673 | DA=* | D | 
| | DA=DCOSH (D) | | | | 
| | | | | | 
| 267 | DA=DARSIN (D) { [DI>1 | DA=0 { D | 
j | DA=DARCOS (D) | | | | 
| | I | | ! 
| 268 | DA=DTAN (D) | [X}22504# 7 | DA=1 | D | 
| | DA=DCOTAN (D) | | | | 
{ | | | | | 
| 269 | DA=DTAN (D) | D is too close | DA=* | D | 
| | [| to an odd a | | | 
{ | | multiple of 2 | | | 
| | ee | | | 
i | DA=DCOTAN (D) | D is too close | DA=* | D t 
| | | | | i 
| | | I | | 
| { 
| | 
| | 
I | 
1 | 
| | 
| { 
| | 
| | 
L 


Complex variables to be given the length of the functioned argument when 


For errors 271 through 275, 
MR HH RRR KR RR AH RRR HR RRR A RE AOR ARR ERR RE TR RR EAE EE REE ARK EE REE EEA EERE EKEREE RE 


to a multiple 
of x 


C=X4+iX2 


271 Z=CEXP (C) X4>174. 673 
272 Z=CEXP (Cc) | Xo f22184#n 
273 Z=CLOG (Cc) c=040i 

| Variable Type 

[I,J Variables of INTEGER*4 

[X, XA, Y Variables of REAL*4 

[|D, DA, DB Variables of REAL*8 

|c,CA Variables of COMPLEX*8 

[ZeXaeXao 

| they appear 

pod Variables of COMPLEX*16 
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above by *. 


HEAR EK KEKE EE EKE KEKE EEE KEKE AE HERE E EE EE ERE AE EEE ERE KEE ERE REE EERE KEKE EEEEAE ERE EEEEERSES 


Z=*(COS Xa+t SIN X2) 


Z=0401 


The user-supplied answer is obtained by recomputation of the function 
using the value set by the user routine for the parameters listed. 


The largest number that can be represented in floating point is indicated 


Table 22. 
--4--- q+ - -- = 
l 
| 
cror | FORTRAN 
ode | Reference 
eee epee erga, 
274 | Z=CSIN (Cc) 
| z=ccos (Cc) 
I 
275 | Z=CSIN (Cc) 
| 
I 
| z=ccos (Cc) 
| Z=CSIN (Cc) 
| 
l 
| Z=ccos (c) 
| 


ESEKEREKERE EERE RE RERE EKER EKE EE REEKEE EE EREAR EEE RE KEES E EE SEE EERE EERE EREKEESEREEEEEEEEEEE ERED EE EESES 


Corrective Action After Mathematical Subroutines Error Occurrence (Part 3 of 3) 


a a ee a sf 


Invalid 
Argument 
Range 


[Xs | 2229* 


X2a>174.673 


X2<-174. 673 


Sas Sa ea aa a a | 
l Options | 
|---------------------- yoann nanan { 
| Standard | User-Supplied | 
| Corrective | Corrective Action | 
| Action | (See Note 1) | 
4-----------=---------- 4-----—-----=----=-=----- 1 
| | 
| Z=0+0i | c 
| l 
| | 
| Z=*(SIN X4,+iCOS X,4) | c 
} 2 | 
| | 
| Z=*(COS X4-iSIN X,) | Cc 
{ 2 I 
| | 
| Z=*(SIN X4,-icoOS X4) | c 
1 2 I 
| \ 
| | c 
l | 


For errors 281 through 285, CD=X4+tixX2 


REEKKEKEE KE EEE EERE EEG SAKE KEEEE KEELER EEEEHEE REE REREEEEEEREREEEEEEEE EEE EREREREREKEEAKERERE KESSEL ERE 


Complex variables to be given the length of the functioned argument when they appear 


X.>174.673 
|X2 {22504 
CD=0+0i 


|X] 22504 


X2>174.673 


X2<-174.673 


XS27-252 or 
X257.5744 


X<O or 
X24. 293741073 


D<2-252 or 
D2=57.5774 


DsO or 
D24, 2937*1073 


hc tine i nat Se ie a ay 


of INTEGER*4 
of REAL*4 


of COMPLEX*8 


Variables of COMPLEX*#16 


Z=*(COS X,+iSIN X,) 
3 


Z=*(COS XatiSIN Xa) 
Z=0+01 
=—*407 


2=0404 

Z=*(SIN X4+icos X,) 
2 

Z=*(COS X,-iSIN X,) 
2 


Z=*(SIN X,-iCOS X,) 
2 


2=*(COS X,+iSIN X,) 
2 


Y=* 


cD 
cD 
cD 


cD 


cD 


cD 


cD 


cD 


The user-supplied answer is obtained by recomputation of the function using the value] 
set by the user routine for the parameters listed. 


| 

281 | Z=CDEXP (cD) 
I 

282 | Z=CDEXP (CD) 
| 

283 | Z=CDLOG (CD) 
\ 

284 | Z=CDSIN (cD) 
| z=cDcos (CD) 
| 

285 | Z=CDSIN (cD) 
| 
| 
| Z=cbDcos (CD) 
| Z=CDSIN (cD) 
| zZ=cpcos (cD) 
| 

290 {| Y=GAMMA (xX) 

291 | Y=ALGAMA (X) 
| 

300 | DA=DGAMMA (D) 
| 

301 | DA=DLGAMA (D) 
| 

es ae 
‘ariable e 
ru Variables 
‘(, XA, Y Variables 
), DA, DB Variables of REAL*8 
',CA Variables 
1@XaeXo 
‘D 
‘otes: 1. 
26 


ee ce ee ec ce ee ne a re a a eS ee a er A A a 


The largest number that can be represented in floating point is indicated above by *. | 
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*Table 23. 


Corrective Action After Program Interrupt Occurrence 





promo nnn qoon n+ Ee ee na ee er ee 1 
| Program Interrupt Messages | Options | 
bon rr for 4 
| |Parameters| | Hi User-Supplied | 
{|Error|Passed to | | | Corrective | 
[Code |User Exit | Reason for Interrupt1 |Standard eorrectaye Action | | 
|-----4--------- ~~}--------------------------4------------- ~------------- + 4 
| 207 | D,L [Exponent overflow [Result register set to the [User may alter | 
I | | (Interrupt Code 12) [largest possible floating [D.? | 
| | | [point number. The sign of | | 
It | { [the result register is not | | 
{ | { |altered. | | 
i I I I I | 
7/SAMPLE JOB _1,SAMPLE, MSGLEVEL=1 


//{STEP1 EXEC FORTHCLG 
//FORT.SYSIN DD * 


c 


UNeN ONAANQ AND SO 8 aaAaAN aan 
Oo 


aa 


MAIN PROGRAM THAT USES THE SUBROUTINE DIVIDE 
COMMON E 
EXTERNAL FIXDIV 
SET UP OPTION TABLE WITH ADDRESS OF USER EXIT 
CALL ERRSET(302,30,5,1,FIXDIV) 
E=0 
GET VALUES TO CALL DIVIDE WITH 
READ (5,9)A,B 
IF(B) 1,2,1 
E=1.0 
CALL DIVIDE (A,B,C) 
WRITE(6,10)C 
FORMAT (2E20. 8) 
FORMAT ('1',E20.8) 
STOP 
END 
SUBROUTINE DIVIDE(A,B,C) 
ROUTINE TO PERFORM THE CALCULATION C=A/B 
IF B=0 THEN USE ERROR MESSAGE FACILITY TO SERVICE ERROR 
PROVIDE MESSAGE TO BE PRINTED 
DIMENSION MES (4) 
DATA MES (1) /12/,MRS(2)/' DIV'/,MFS(3)/'3021/,MFS(4)/' B=n'/ 
DATA RMAX/27FFFFFFF/ 
MESSAGE TO BE PRINTED IS 
DIV302I B=0 
ERROR CODE 302 IS AVAILABLE AND ASSIGNED TO THIS ROUTINE 
STEP1 SAVE A,B IN LOCAL STORAGE 
=A 
E=B 
STEP2 TEST FOR ERROR CONDITION 
IF(E) 1,2,1 
NORMAL CASE -- COMPUTE FUNCTION 
C=D/E 
RETURN 
STEP3 ERROR DETECTED CALL ERROR MONITOR 
CALL ERRMON (MES, IRETCD,302,D,E) 
STEP 4 BE READY TO ACCEPT A RETURN FROM THE ERROR MONITOR 
IF (IRETCD) 5,6,5 
IF IRETCD=0 STANDARD RESULT IS DESIRED 
STANDARD RESULT WILL BE C=LARGEST NUMBER IF D IS NOT ZERO 
CR C=0 IF E=0 AND D=0 
IF(D) 7,8,7 
c=0.0 
GO TO 9 
C=RMAX 
RETURN 
USER FIX UP INDICATED. RECOMPUTE WITH NEW VALUE PLACED IN E 
GO TO 100 
END 
SUBROUTINE FIXDIV(IRETCD,INO,A,B) 
THIS IS A USER EXIT TO SERVE THE SUBROUTINE DIVIDE 
THE PARAMETERS IN THE CALL MATCH THOSE USE IN THE CALL TO 


FORTRAN can be invoked by a problem pro- 
gram through the use of the CALL, ATTACH, 
or LINK macro instructions. 


The program must supply to the FORTRAN 
compiler : 


e The information usually specified in 
the PARM parameter of the EXEC 
statement. 


e The ddnames of the data sets to be used 
during processing by the FORTRAN 


compiler. 
Pe ee a 
|Name |Operation|Operand l 
tm af ef ef 


ee \ | EP=compiler-name, 

| | \ATTACHS | PARAM=(optionaddr | 
| | { (,ddnameaddr)), VL=1 | 
| | | | 
| (name] | CALL [IEKAAO0, (optionaddr | 
| | | {,ddnameaddr]),VL | 
Lois Bae one pppoe tinea soe Ian prea eene 


compiler-name 
specifies the program name of the con- 
piler to be invoked. IEYFORT is spec- 
ified for FORTRAN IV (G); IEKAAOO, for 
FORTRAN IV (H). 


optionaddr 
specifies the address of a variable 
length list containing information 
usually specified in the PARM parame- 
ter of the EXEC statement. 


The option list must begin on a half- 
word boundary. The two high-order 
bytes contain a count of the number of 
bytes in the remainder of the list. 

If there are no parameters, the count 
must be zero. The option list is free 
form with each field separated by a 
comma. No blanks should appear in the 
list. 


Appendix A: 


APPENDIX A: INVOKING THE FORTRAN COMPILER 


ddnameaddr 
specifies the address of a variable 
length list containing alternate 
ddnames for the data sets used during 
FORTRAN compiler processing. This 
address is supplied by the invoking 
program. If standard ddnames are 
used, this operand may be omitted. 


The ddname list must begin on a half- 
word boundary. The two high-order 
bytes contain a count of the number of 
bytes in the remainder of the list. 
Each name of less than eight bytes 
must be left justified and padded with 
blanks. If an alternate ddname is 
omitted from the list, the standard 
name is assumed. If the name is 
omitted within the list, the 8-byte 
entry must contain binary zeros. 

Names can be completely omitted only 
from the end of the list. 


The sequence of the 8-byte entries in 
the ddname list is as follows: 


Alternate Name 
SYSLIN 


00000000 
00000000 
00000000 
SYSIN 
SYSPRINT 
SYSPUNCH 
SysuTi 
SYSUT2 


ty 
5 
oa sourunnlg 


VL=1 or VL 


specifies that the sign bit of the 
last full-word of the address parame- 
ter list is to be set to 1. 
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i re NEA A 


Sample Coding Form 


[6[7[8]slol [2 sad aC gjoft 2[3l4 eee erate: aster ok l2 eee a alslel71619K 


//STARDALP, JOB 3239. J. -ASTRONOMER’ sMSSLEVEL A aioe ae 


PENNE STAPOASIDESPO pots tirirtriiitbuiridy posi tipi 


~ DSNAME=STARMSTR» DISP= ou SR DOLE ee Hs me a 
“STAR DE DETAILS | RONLOW ee 
LOO ap cans ST os Be ere ny ete Cee ae 
ene “END OF STAR DETATLS ee cg oe eae ge 

valed la awe Sewaa econ eee re aeee kee ws waves Sees aes 































































































Figure 90. Job Control Statements for Example 3 
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IDENTIFICATION: 
FORTRAN STATEMENT 





EFINE FILE 7 (120000130 5/EsNEXIT) | an 
RE CIORD: ‘CONTAINING RECORD LOCIATION COUNIT 
EADIC7' 19/1 04 IDSTRM>»LOCREC - 
‘STAR DATA AND CHECK FOR] LAST) STAR) DATA RECORD | f 
EAD|(19102)IDSITRD2AlyBoCo[DoEoF ree Mae mc hl ote ee es Ee 
LIF CIDSTRDI-999-9199) 2019799919 : Speen igen oer eee es 
NIDIOMITIZIE ToStkD/ 180 FELD “IN|. STAR BATAAN D IR ‘STA MASTER & 
RE 





ier 

















E] 





























OREC=IDSTRD/ 100 aD 

ADIC7’ NOREC 1103) IDSTRMo|I CHATINaT Us Vo XY 
RRECCT STIAR MAISTER 
"| ITE CLD STRDI-I DST 


Az 


























IAIN VARIABLE | iS eee meee es ies pea Cee 
ILFCTICHAIN) 2492 > aces eee Be elt ce coil edn cd aie oetl gs ge roe ae 
-BIEGIN] CONSTRUCTING NEW MASTER AND CHAIN, | [| [ oy chs a 
ATE CHAIN VARIA | LAS T| RECORD | Davee, 
“ITCHAIIN= LOCREC. ee aed ees Seen ie Ve 
E(7'NOREC 9}: : 

IRD NUMBER 
LIOCATIION COU 
C=LOCIREC |. 
EC=LOCRECt+ 




















































































































z ice 














RETECT™ NOREC It 
TiO. READ NED (T STIAR DA 
0. TIO. 

CRAEN VARTARLE” TIN RECORD READ [THE NEXT SiTAR MASTER! 
NOREC=ICHIAIN | a — ft ee | 
60 TO 27 

IF STAR DATA> 
























































IDSTRM=O | | 
WRITIE( 71/101 
STOP 



















































































\ 
ee See a Sees Gane oO, Se ee ere ieee Ee 
‘ my . 
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Figure 91. FORTRAN Coding for Example 3 
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APPENDIX C: ASSEMBLER LANGUAGE SUBPROGRAMS 


A FORTRAN programmer can use assembler 
language subprograms with his FORTRAN main 
program. This section describes the link- 
age conventions that must be used by the 
assembler language subprogram to communi- 
cate with the FORTRAN main program. To 
understand this appendix, the reader must 
be familiar with the Assembler Language 
publication, Form GC28-6514 and the Assen- 
bler Programmer's Guide. 


SUBROUTINE REFERENCES 


The FORTRAN programmer can refer to a 
subprogram in two ways: by a CALL state- 
ment or a function reference within an 
arithmetic expression. For example, the 
statements 


CALL MYSUB(X, Y, Z) 
I=J+K+MYFUNC (L,M,N) 


refer to a subroutine subprogram MYSUB and 
a function subprogram MYFUNC, respectively. 


For subprogram reference, the compiler 
generates: 


1. A contiguous argument list; the 
addresses of the arguments are placed 
in this list to make the arguments 
accessible to the subprogran. 


2. A save area in which the subprogram 
can save information related to the 
calling program. 


3. A calling sequence to pass control to 
the subprogram. 


Argument List 


The argument list contains addresses of 
variables, arrays, and subprogram names 
used as arguments. Each entry in the argu- 
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ment list is four bytes and is aligned on a 
fullword boundary. The last three bytes of 
each entry contain the 24-bit address of an 
argument. The first byte of each entry 
contains zeros, unless it is the last entry 
in the argument list. If this is the last 
entry, the sign bit in the entry is set to 


The address of the argument list is 
placed in general register 1 by the calling 
program. 


Save Area 


The calling program contains a save area 
in which the subprogram places information, 
such as the entry point for this program, 
an address to which the subprogram returns, 
general register contents, and addresses of 
save areas used by programs other than the 
subprogram. The amount of storage reserved 
by the calling program is 18 words. Figure 
92 shows the layout of the save area and 
the contents of each word. The address of 
the save area is placed in general register 
13. 


The called subprogram does not have to 
save and restore floating-point registers. 


Calling Sequence 


A calling sequence is generated to 
transfer control to the subprogram The 
address of the save area in the calling 
program is placed in general register 13. 
The address of the argument list is placed 
in general register 1, and the entry 
address is placed in general register 15. 
If there is no argument list, then general 
register 1 will contain zero, A branch is 
made to the address in register 15 and the 
return address is saved in general register 
14. Table 24 illustrates the use of the 
linkage registers. 


AREA--------- ~--> p-------------- ------------- waa $$ $$$ - 1 
(word 1) {This word is used by a FORTRAN compiled routine to store its | 
[epilogue address and may not be used by the assembler language | 

|subprogram for any purpose. 
AREA+4—-—--—-——~ —> }---—----------—---- +--+ + + + 1 
(word 2) [If the program that calls the assembler language subprogram is | 
|itself a subprogram, this word contains the address of the save | 
jarea of the calling program; otherwise, this word is not used. | 


| | 
| { 
| | 
| { 
| | 
| | 
| | 
| | 
| AREA+8-——--—-— ——a—> p-————-——- — 2 a 4 { 
| (word 3) |The address of the save area of the called subprogram. { | 
| AREA+12-----—~—-——> |---~---~--———---- -—-- - -- — nn nn 4 | 
| (word 4) {The contents of register 14 (the return address). When the sub-| | 
| [program returns control, the first byte of this location is set | | 
t Jto ones. I | 
| AREA+16------~-- > p------+-- ----- - - - -- - + nn nn 4 | 
{| (word 5) | The contents of register 15 (the entry address). | { 
| AREA+20—----—-- ——> ---—---------------+------------------------------------ -- ++ +++ {| 
[| (word 6) {The contents of register 0. | | 
| AREA+24-----—--—-> }-----— a en en nn 4 | 
{| (word 7) {The contents of register 1. | I 
| |-----------—-------- —------------—-----------------------—----{ | 
| . | . | | 
| . I ° | 
| : { . | 
| AREA+t68~—~--—-————> |---------~----—~---—----- - -- - > - --- += een 4 | 
| (word 18) |The contents of register 12. | | 
a aS 4 
RS en eae SPARS eS are ESN Se SR PRS SRL NEL RS ASA | 


Figure 92. Save Area Layout and Word Contents 


Table 24. Linkage Registers 


a me eae em a ee pe aR SS A eS ee TS 
{Register| | | 
|Number |Register Name [Function | 
[-------- 4--------- ~-----}--------------2----------------- + ---- == ------ === ----=----=-=- 4 
| 0 {Result Register|Used for function subprograms only. The result is returned in| 
| | [general or floating-point register 0. However, if the result | 
| | {is a complex number, it is returned in floating-point regis l 
| | [ters 0 (real part) and 2 (imaginary part). { 
| | | | 
| j |[Note: For subroutine subprograms, the result(s) is returned | 
{ | Jin a variable(s) passed by the programmer. | 
}-------- +--------------- 4~------------—----------—----------------------------------- { 
| 1 |Argument List [Address of the argument list passed to the called { 
| [Register | subprogram. { 
|---~----}----~-----~---- | -------- ----—--------------- —---------------------- { 
| 2 |Result Register|See Function of Register 0. { 
k- te ciate er AA EY te lhe ce se a ce ee i me ne A a le cee ale ee cite oe A et A A FT SS a Se SO SS er YD pe SS SN SO lr ii te Poe Se SS ES SS SS Ah eS SS SS eS SE ae 4 
| 13 |Save Area |Address of the area reserved by the calling program | 
| [Register Jin which the contents of certain registers are stored by the | 
| | [called program. | 
J-—--- = - ~~ 2+ nf nnn nnn nnn nn nnn nnn nnn nnn nnn nnn nnn { 
| 14 |Return Register| Address of the location in the calling program to which con- | 
| | [trol is returned after execution of the called progran. 
|--------4---------------} -- -- = == nnn 4 
| 15 [Entry Point {Address of the entry point in the called subprogram. | 
| [Register {Note: Register 15 is also used as a condition code register, | 
| | [a RETURN code register, and a STOP code register. The partic-| 
| | {ular values that can be contained in the register are | 
l | { 16 - a terminal error was detected during execution of a sub-| 
| | ! program (an IHCxxxI message is generated) | 
| | [4*i ~ a RETURN i statement was executed | 
| | {| n - a STOP n statement was executed | 
| | | 0O- a RETURN or a STOP statement was executed | 
loccee—ss dsc eS = 5 a soe Sete ee ee J 
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CODING THE ASSEMBLER LANGUAGE SUBPROGRAM 





Two types of assembler language subpro- 
grams are possible: the first type (lowest 
level) assembler subprogram does not call 
another subprogram; the second type (higher 
level) subprogram does call another 
subprogram. 


Coding a Lowest Level Assembler Lanquage 
Subprogram 





For the lowest level assembler language 
subprogram, the linkage instructions must 
include: 


1. An assembler instruction that names an 
entry point for the subprogram. 


2. An instruction(s) to save any general 
registers used by the subprogram in 
the save area reserved by the calling 
program. (The contents of linkage 
registers 0 and 1 need not be saved.) 


3. An instruction(s) to restore the 
“saved" registers before returning 
control to the calling program. 


4. An instruction that sets the first 
byte in the fourth word of the save 
area to ones, indicating that control 
is returned to the calling program. 


5. An instruction that returns control to 
the calling program. 


Figure 93 shows the linkage conventions 
for an assembler language subprogram that 
does not call another subprogram. In addi- 
tion to these conventions, the assembler 


ara ) Saeenaa TR ee ee 
| Name |Oper. |Operand Comments 
|~------~-}----~-+~-------------------—------ 
[|deckname [START |0 

| | BC ]15,m+1+4(15) 

| [Dc [x*m* 

| [De | CLm' name’ 

|* | I WITH BLANKS. 
| [STM [14,R,12(13) 

* 

te 

| |BALR |B,0 

| [USING |*,B 

| [user |written source statements 

| 

| 

| 

I 

| 

| 


program must provide a method to transfer 
arguments from the calling program and 
return the arguments to the calling 
program. 


Higher Level Assembler Language Subprogram 


A higher level assembler subprogram musi 
include the same linkage instructions as 
the lowest level subprogram, but because 
the higher level subprogram calls another 
subprogram, it must simulate a FORTRAN sub- 
program reference statement and include: 


1. A save area and additional instruc- 
tions to insert entries into its save 
area. 


2. A calling sequence and a parameter 
list for the subprogram that the high- 
er level subprogram calls. 


3. An assembler instruction that indi- 
cates an external reference to the 
subprogram called by the higher level 
subprogram. 


4. Additional instructions in the return 
routine to retrieve entries in the 
save area. 


Note: If an assembler language main pro- 
gram calls a FORTRAN subprogram, the fol- 
lowing instructions must be included in the 
assembler language program before the 
FORTRAN subprogram is called: 


L 15,=V( IBCOM#) 
BAL 14,64(15) 


BRANCH AROUND CONSTANTS IN CALLING SEQUENCE 
m MUST BE AN ODD INTEGER TO INSURE THAT THE PROGRAM 
STARTS ON A HALF-WORD BOUNDARY. 


THE NAME CAN BE PADDED 


‘ 
| 
| 
| 
| 
| 
| 
THE CONTENTS OF REGISTERS 14, 15, AND 0 THROUGH R ARE | 
| | STORED IN THE SAVE AREA OF THE CALLING PROGRAM. R IS ANY| 
| | NUMBER FROM 2 THROUGH 12. | 
ESTABLISH BASE REGISTER (2<B<12) | 
| 
| 
| 
| 
| 
| 
| 
| 


INDICATE CONTROL RETURNED TO CALLING PROGRAM 


| LM |2,R, 28(13) RESTORE REGISTERS 

[MVE [12(13),X*FF* 

|BCR [15,14 RETURN TO CALLING PROGRAM 
| Re ay Lo... doo ee Se 


Figure 93. 
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These instructions cause initialization of 
return coding interruption exceptions, and 
opening of the error message data set. If 
this is not done and the FORTRAN subprogram 
terminates either with a STOP statement or 
because of an execution-time error, the 
data sets opened by FORTRAN are not closed 
and the result of the termination cannot be 
predicted. Register 13 must contain the 
address of the save area that contains the 
registers to be restored upon termination 
of the FORTRAN subprogram. Specifically, 
the fifth word of the save area must con- 


tain the address which error-handling rou- 
tines are to consider the program entry 
point. If control is to return to the 
assembler language subprogram, then regist-— 
er 13 contains the address of its save 
area. If control is to return to the 
operating system, then register 13 contains 
the address of its save area. 


Figure 94 shows the linkage conventions 
for an assembler subprogram that calls 
another assembler subprogram. 


De oe ag ee ee ee ee q 
| Name |Oper. |Operand Comments | 
[---------}------ 40 - = ----- == nnn nn nnn nnn nnn nnn nnn nnn nnn nnn nn nnn === 4 
|deckname |START |0 | 
| |EXTRN |namezg NAME OF THE SUBPROGRAM CALLED BY THIS SUBPROGRAM | 
| [Bc [15,m+1+4(15) | 
| {De |x‘m' | 
| | Dc |CLm' name, | 
{* | |SAVE ROUTINE 
l {STM [14,R,12(13) THE CONTENTS OF REGISTERS 14, 15, AND 0 THROUGH R ARE I 
{* | | STORED IN THE SAVE AREA OF THE CALLING PROGRAM. R IS | 
|* { | ANY NUMBER FROM 2 THROUGH 12. | 
| |BALR |B,0 ESTABLISH BASE REGISTER 
{ [USING |*,B | 
| [| LR {2,13 LOADS REGISTER 13, WHICH POINTS TO THE SAVE AREA OF THE | 
| * | | CALLING PROGRAM, INTO ANY GENERAL REGISTER, ©, EXCEPT 0, | 
| * { | 11, 13, AND 15. | 
| | LA [|13, AREA LOADS THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO | 
\* | \ REGISTER 13. | 
| [ST [13,80,9) STORES THE ADDRESS OF THIS PROGRAM'S SAVE AREA INTO THE | 
| * | | CALLING PROGRAM'S SAVE AREA | 
| {st {Q,4(0,13) STORES THE ADDRESS OF THE PREVIOUS SAVE AREA (THE SAVE | 
|* | | AREA OF THE CALLING PROGRAM) INTO WORD 2 OF THIS PRO- | 
|* | | GRAM'S SAVE AREA | 
| {BC | 15, probs | 
| AREA | Ds |18F RESERVES 18 WORDS FOR THE SAVE AREA | 
|* | |END OF SAVE ROUTINE 

| | | 
| prob, [user |written program statements 
| | 

|* | [CALLING SEQUENCE 

| | LA {1,ARGLIST LOAD ADDRESS OF ARGUMENT LIST 

| |L |15, ADCON | 
| [|BALR [14,15 | 
| [more |user written program statements 

|* | |RETURN ROUTINE | 
l {L {13, AREA+4 LOADS THE ADDRESS OF THE PREVIOUS SAVE AREA BACK INTO l 
| * | | REGISTER 13 | 
| {LM [2,R,28(13) | 
| |L [14,12(13) LOADS THE RETURN ADDRESS INTO REGISTER 14. | 
| | MvVI [12(13),X*FF* 

| | BCR [15,14 RETURN TO CALLING PROGRAM | 
| * l [END OF RETURN ROUTINE 

| ADCON {Dc [|A(name 2) 

{* ( {ARGUMENT LIST 

[ARGLIST {Dc [AL4 (arg, ) ADDRESS OF FIRST ARGUMENT | 
| | | | 
! hes | 
I [Dc (x' 80° INDICATE LAST ARGUMENT IN ARGUMENT LIST | 
| | Dc {AL3(argn) ADDRESS OF LAST ARGUMENT { 
eee ee ere Mi a eee me See oe ee Ro ee a SS ee ee ee ee ee 3 
Figure 94. Linkage Conventions for Higher Level Subprogram 
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In-Line Argument List 





The assembler programmer may establish 
an in-line argument list instead of out-of- 
line list. In this case, he may substitute 
the calling sequence and argument list 
shown in Figure 95 for that shown in Figure 
94, 


pe a a eee Oe ee es 1 
| ADCON pc A(prob,) | 

. | 
| . | 
| : I 
{ LA 14, RETURN | 
| L 15, ADCON | 
| CNOP 2,4 | 
| BALR 1,15 | 
| pe AL4 (arg, ) | 
| Dec AL4 (arg) | 
| . | 
| : | 
| “ | 
| pe x'80°" | 
| pe AL3(argn) | 
| RETURN BC 0,xX*isn' | 
(2fabs2 Ste so oe a a J 
Figure 95. In-Line Argument List 


Sharing Data in COMMON 


Both named and blank COMMON in a FORTRAN 
IV program can be referred to by an as- 
sembler lanquage subprogram. To refer to 
named COMMON, the V-type address constant 


name DC V(name of COMMON) 
is used. 


If a FORTRAN program has a blank COMMON 
area and blank COMMON is also defined (by 
the COM instruction) in an assembler lan- 
guage subprogram, Only one blank COMMON 
area is generated for the output load 
module, Data in this blank COMMON is 
accessible to both programs. 


To refer to blank COMMON, the following 
linkage may be specified: 


COM 
name DS OF 


en eee > cname CSECT 
L 11, =A(name) . 
USING name,11 . 
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RETRIEVING ARGUMENTS FROM THE ARGUMENT LIST 


The argument list contains addresses for 
the arguments passed to a subprogram. The 
order of these addresses is the same as the 
order specified for the arguments in the 
calling statement in the main program. The 
address for the argument list is placed in 
register 1. For example, when the 
statement 


CALL MYSUB(A, B,C) 


is compiled, the following argument list is 
generated. 


eerie erm Tic op ee ee 1 
[90000000] address for A | 
[---~~-~~ }------------ ~+------~----------- 4 
| 90000000} address for B | 
oe a ae Se 4 
}10000000| address for C l 
[peo ne dis ei eae J 


For purposes of discussion, A is a real*8 
variable, B is a subprogram name, and C is 
an array. 


The address of a variable in the calling 
program is placed in the argument list. 
The following instructions in an assembler 
language subprogram can be used to move the 
real*8 variable A to location VAR in the 
subprogram. 


L Q,0(1) 
MVC VAR(8),0(Q) 


where 
Q is any general register except 0. 


For a subprogram reference, an address 
of a storage location is placed in the 
argument list. The address at this storage 
location is the entry point to the subpro- 
gram. The following instructions can be 
used to enter subprogram B from the subpro- 
gram to which B is passed as an argument. 


L Q,4(1) 

L 15,0(Q) 

BALR 14,15 
where 


Q is any general register except 0. 


For an array, the address of the first 
variable in the array is placed in the 
argument list. An array [for example, a 
three-dimensional array C(3,2,2)] appears 
in this format in main storage. 


C(1,1,1) C(2,1,1) C(3,1,1) Cc(1,2,1)--, 
J 


| eaaenet 
t-C(3,1,2) C(1,2,2) C(2,2,2) C(3,2,2) 


Table 25 shows the general subscript format 
for arrays of 1, 2, and 3 dimensions. 





Table 25. Dimension and Subscript Format 
oer re ey a a eam ee ea | 
|Array A | Subscript Format | 
pe ee 4—----+---+---~----~-----+----] 
{A(D1) [ACSs1) { 
{A(D1, D2) |A(S1,S2) | 
{A(D1, D2,D3) |A(S1,52,S3) | 
}-----—----- ee aaa nee rere estes Sees 4 


|D1, D2, and D3 are integer constants used| 
jin the DIMENSION statement. S1, S2, and | 
|S3 are subscripts used with subscripted | 
| variables. | 

4 


Le eee em ce are a ere one ae ome en a cee 


The address of the first variable in the 
array is placed in the argument list. To 
retrieve any other variables in the array, 
the displacement of the variable, that is, 
the distance of a variable from the first 
variable in the array, must be calculated. 
The formulas for computing the displacement 
(DISPLC) of a variable for one, two, and 
three dimensional arrays are 


DISPLC=(S1i-1) *L 
DISPLC=(S1-1) *L+(S2-1) #D14#L 
DISPLC= (S1-1) *#L+ (S2-1) *D1*L+ (S3-1) *D2*D1*L 


where 
L is the length of each variable in 
this array. 


For example, the variable C(2,1,2) in 
the main program is to be moved to a loca- 
tion ARVAR in the subprogram. Using the 
formula for displacement of integer 
variables in a three-dimensional array, the 
displacement (DISP) is calculated to be 28. 
The following instructions can be used to 
move the variable, 


L Q,8(1) 
L R, DISP 
L $,0(Q,R) 
ST  S,ARVAR 


where 
Q and R are any general register 
except 0. 
S is any general register. Q and R 
cannot be general register 0. 


Example: An assembler language subprogram 
is to be named ADDARR, and a real variable, 
an array, and an integer variable are to be 
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passed as arguments to the subprogram. The 
statement 

CALL ADDARR (X,Y,J) 
is used to call the subprogram. Figure 96 


shows the linkage used in the assembler 
subprogram. 


RETURN i in an Assembler Language 
Subprogram 


When a statement number is an argument 
in a CALL to an assembler language subpro- 
gram, the subprogram cannot access the 
statement number argument. 


To accomplish the same thing as the 
FORTRAN statement RETURN i (used in FORTRAN 
subprograms to return to a point other than 
that immediately following the CALL), the 
assembler subprogram must place 4*i in 
register 15 before returning to the calling 
program. 


For example, when the statement 


CALL SUB (A,B,&10,&20) 

is used to call an assembler language sub- 
program, the following instructions would 
cause the subprogram to return to the prop- 
er point in the calling program: 


LA 15,4 (to return to 10) 


BCR 15,14 


LA 15,8 (to return to 20) 


BCR 15,14 


Object-Time Representation of FORTRAN 
Variables 


The programmer who uses FORTRAN in con- 
nection with assembler language may need to 
know how the various FORTRAN data types 
appear in the computer. The following 
examples illustrate the object-time repre- 
sentation of FORTRAN variables as they 
appear in System/360. 
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INTEGER Type 


INTEGER variables are treated as fixed-point operands by the FORTRAN IV (G) and (H) 
compilers, and are governed by the principles of System/360 fixed-point arithmetic. 
INTEGER variables are converted into either fullword (32 bit) or halfword (16 bit) signed 
integers. 


Seow ses yor oo yo - - $+ - -- - - +--+ - 77 
[Name |Oper. |Operand | 
[ADDARR [START] 0 i 
IB [EQu [8 { 
| [Bc [15,12(15) | 
| [Dc |x'7° | 
| [pe [CL7* ADDARR* l 
| [STM [14,12,12(13) { 
|BALR [B, 0 
| [USING |*,B | 
| [L 12,81) MOVE 3RD ARGUMENT TO LOCATION CALLED | 
| [MVC [INDEX(4),0(2) INDEX IN ASSEMBLER LANGUAGE SUBPROGRAM. | 
| {L [3,0¢1) MOVE 1ST ARGUMENT TO LOCATION CALLED VAR| 
| [Mvc |VAR(4),0(3) IN ASSEMBLER LANGUAGE SUBPROGRAM. | 
l {L }4,4(1) LOAD ADDRESS OF ARRAY INTO REGISTER 4. | 
| fuser |written statements | 
| | _—_ | 
| | | + | 
i | | | 
| |LM | 2,12, 28(13) | 
{ [MVI {12(13),X‘FF* | 
| [BCR [15,14 | 
| [Ds | OF t 
| INDEX [DS {1F | 
| VAR 1ps uae | 
Ce ns ae Jj 


e Figure ae. ee Subprogram Example 


The statements: 


INTEGER*2 ITEM/76/, VALUE 
INTEGER*4 F,F64/100/ 

F= 15 

VALUE = -2 


would cause the variables ITEM, VALUE, F, F64 to appear in the computer as: 


2 Bytes 
ITEM [0] 0000000] 01001100] 
$100 ag 
2 Bytes 
value|1| 1112111 /11111110| 
ea ae 
4 Bytes 
F {0} 0000000] 00000000| 00000000} 000021131 
St ee eae 5 eae 
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4 Bytes 


rv Warr ei 
F64 = |[0] 0000000 | 00000000| 00000000 | 01100100 | 


LS ns on i Sane cn | 


Ss 1 31 


where S in bit position 0 represents the sign bit, All negative numbers are represented 
in two's complement notation with a one in the sign-bit position. (For a more complete 
explanation of fixed-point arithmetic, refer to the publication IBM System/360_ Principles 


of Operation, Form A22-~6821.) 


REAL TYPE 


All REAL variables are converted into short (32 bit) or long (64 bit) floating-point 
numbers by the compiler. The length of the numbers is determined by FORTRAN IV specifi- 
cation conventions. For example, the statements: 


REAL*4 HOLD, R/100./ 
REAL*8 A, RATE/-8./ 
HOLD = -4, 

A= 8 


would cause the variables to appear internally as: 
S CHARACTERISTIC FRACTION 


eng rn 


HOLD{1] 1000004 | 01000000] 00000000] 00000000] 
LoL eh eh ed 


O12 7 8 31 


Ss Sas a cae echo e FRACTION 


ee ee ee 


A [0{1000001 10000000} 00000000/ 00000000} 0000 } 0000| 


5 ie cp an i ly tt it mos re sn yi sors pao ol 


01 7 8 31 63 


RATE] 1 i 100000 10000000 i 00000000] 18 epee? | oe ul | 
Geb eS soca 
where: 
e The sign bit (S) occupies bit position 0. 
e The characteristic occupies bit positions 1-7. 


e The fraction occupies either bit positions 8-31 for a short floating-point number or 
bit positions 8-63 for a long floating-point number. 


COMPLEX TYPE 


A COMPLEX variable has two parts (real and imaginary) and is treated as a pair of REAL 
numbers. The COMPLEX parts are converted into two contiguous, short or long, floating- 
point numbers. For example: 
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COMPLEX D/(2.1,4.7)/,E*16 
E = (55.5 -55.5) 


will cause the variables D and E to appear in the computer as: 


S CHARACTERISTIC FRACTION 


a a ce ig a ea se cn cae ee a ee 


D [0 {1000001 00100001} 10011001 | 10011001] 2. 1 


—4------—-+4-—----- jai ll et is mh 


| 01000001 | 01001011 | 00110011] 00110011 | 4.7 
LiLo see eee co he 


01 7 8 or 


S CHARACTERISTIC FRACTION 


cane Cneteeteeeete ineetenenneinn teteeteenteteses teehee he a 


E [01000010] 00110111] 10000000} 00000000] 0000 0000[55.5 


b- + 
PET OOO OF SURE Thera» (soc n nooo lmonoreoumous 0000{55.5 


hn iat rnp eae nin inten st Sa tn <i eei ee | 


"9 1 7 8 31 63 


Note: Floating-point operations in System/360 may sometimes produce a negative zero, 
i.e., the sign bit of a floating-point zero will contain a one. FORTRAN IV compilers 
consider all floating-point numbers having a fraction of zero as equivalent. The settin 
of the sign bit is unpredictable in floating-point zeros computed by a FORTRAN G or H 
object program. (A detailed explanation of floating-point operations can be found in thi 


publication IBM System/360: Principles of Operation, Form A22-6821. 


LOGICAL TYPE 


FORTRAN IV LOGICAL variables may specify only 2 values: 
«TRUE. Or «FALSE. 


These logical values are assigned numerical values of '1' and '0', for .TRUE. and 
«FALSE., respectively, by both the G and H compilers. The statements: 


LOGICAL*1 L1,L2/.TRUE./ 
LOGICAL*4 L3,L4/.FALSE./ 
L1 =..FALSE. 
L3 = .TRUE. 


would cause the variables Li, L2, L3, L4 to be assigned the following values (using hexa- 
decimal notation): 


<--1 Byte--> 


Chi ae comes | 
Li | 00 { 


<--1 Byte--> 


Coes —T 
L2 | 01 ] 
bse n oS r] 
<------ 4 Bytes-—---—- > 
pps aia =—F—=—71 
L3 | 0O | 0O {| 00 | 01 | 
took Se Ed 
<-----— 4 Bytes------ > 
rhe ate —y--- 
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Note: The values shown above for LOGICAL variables are those assigned for the current 
implementation of the FORTRAN IV (G) and (H) compilers. The assembler language programm- 
er should not assume these values for future versions of either the (G) or (H) compilers, 
since both compilers are subject to change. 


The DUMP or PDUMP subroutine can also be used as an additional tool for understanding 
the object-time representation of FORTRAN data. Refer to the “Use of DUMP and PDUMP"™ 


section in the “Programming Considerations" chapter of this publication or consult the 
FORTRAN IV Library Subprograms publication. 
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TEYOO31 


TEYOO4I 


TEYOO5I 
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Programmer Response: Probable 
user error. Correct an unlabeled 
statement following a transfer of 
control, as it cannot be executed, 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 


listing available. 


NAME LENGTH ITEYOO61 


Explanation: The name of a 
variable, COMMON block, NAMELIST 


or subprogram exceeds six 
characters in length; or two 
variable names appear in an 
expression without a separating 
operation symbol. 

(Condition code - 0) 


Programmer Response: Probable 
user error. Make sure that the 
name of a variable, COMMON block, 
NAMELIST, or subprogram does not 
exceed six characters in length. 
Check that two variable names do 
not appear in an expression 
without a separating operation 
symbol. If the problem recurs, do 
the following before calling IBM 
for programming support: 


IEYO0O7I 


e Have source and associated 
listing available. 


COMMA 


Explanation: The delimiter 
required in the statement has been 
omitted. 

(Condition code - 0) 


Programmer Response: Probable 
user error. Correct or delete 
invalid delimiters and insert the 
required delimiter that has been 
omitted. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


ILLEGAL LABEL 
IEYOO8I 
Explanation: Illegal usage of a 
statement label; for example, an 
attempt is made to branch to the 
label of a FORMAT statement. 
(Condition code - 8) 
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Programmer Response: Probable 
user error. Correct the illegal 
usage of a statement label. 
Example: No branch to the label 
of a FORMAT statement should be 
coded. If the problem recurs, do 
the following before calling IBM 


for programming support: 


e Have source and associated 
listing available. 


DUPLICATE LABEL 


Explanation: The label appearing 
in the label field of a statement 
has previously been defined for 
another statement. 

(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


previously defined label and 
adjust any code referencing the 
label. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


ID CONFLICT 


Explanation: The name of a 
variable or subprogram has been 
used in conflict with the type 
that was defined for the variable 
Or subprogram in a previous 
statement. (Condition code - 8) 


Programmer Response: Probable 
user error. Correct any variable 


or subprogram name used in 
conflict with the type defined for 
the variable or subprogram in a 
previous statement. Examples: 
The name listed in a CALL 
statement is the name of a 
variable; a single name appears 
more than once in the dummy list 
of a statement function; a name 
listed in an EXTERNAL statement 
has been defined in another 
context. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


ALLOCATION 


Explanation: The storage 
allocation specified by a source 
module statement cannot be 
performed because of an 


TEYOO9T 


TEYO101 
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inconsistency between the present 
usage of a variable name and some 
prior usage of that name. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the statement 
since the storage allocation 
specified by a source module 
statement cannot be performed. 
Make sure that an inconsistency 
between present usage of a 
variable name and some prior usage 
of that name does not occur. 
Examples: A name listed ina 
COMMON block has been listed in 
another COMMON block; a variable 
listed in an EQUIVALENCE statement 
is followed by more than seven 
subscripts. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEYO111 


e Have source and associated 
listing available. 


ORDER 
TEY0121 
Explanation: The statements 
contained in the source module are 
used in an improper sequence. 
(Condition code —- 8) 


Programmer Response: Probable 
user error. Make sure that 


statements contained in the source 
module are used in proper 
sequence. Examples: An IMPLICIT 
statement does not appear as the 
first or second statement of the 
source module; an ENTRY statement 
appears within a DO loop. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. IEY0131 
SIZE 


Explanation: A number used in the 
source module does not conform to 
the legal values for its use, 
(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that a 


number used in the source module 
conforms to the legal values for 
its use. Examples: A label used 
in a statement exceeds the legal 
size for a statement label; the 
size specification in an EXPLICIT 
statement is not acceptable; an 
integer constant is not within the 
allowable magnitude. If the 
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problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


UNDIMENSIONED 


Explanation: A variable name is 
used as an array (i.e., subscripts 
follow the name), and the variable 
has not been dimensioned. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that a 
variable name is not used as an 
array (ieee, subscripts must not 
follow the name). Include a 
DIMENSION statement if one is 
missing. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


SUBSCRIPT 


Explanation: The number of 
subscripts used in an array 
reference is either too large or 
too small for the array. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
number of subscripts used in an 
array reference corresponds to the 
number appearing in the DIMENSION 
Statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


SYNTAX 


Explanation: The statement or 
part of a statement to which this 
message refers does not conform to 
the FORTRAN IV syntax. 

(Condition code - 8) 





Programmer Response: Probable 
user error. Make sure that all 


source code conforms to the 
FORTRAN IV syntax. Examples: The 
statement cannot be identified; a 
non-digit appears in the label 
field; fewer than three labels 
follow the expression in an 
Arithmetic IF statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 
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e Have source and associated 
listing available. 

LEYO14I CONVERT 
Explanation: The mode of the 
constant used in a DATA or in an 
Explicit Specification statement 
is different from the mode of the 
variable with which it is 
associated. The constant is then 
converted to the correct mode. 
(Condition code - 0) 


Programmer Response: Probable 
user error. Make sure that the 


mode of the constant used ina 
DATA or in an EXPLICIT 
specification statement is 
identical to the mode of the 
variable with which it is 
associated. 

TEY015I NO END CARD 

danation: The source module 
does not contain an END statement. 
(Condition code ~- 0) 


Programmer Response: Probable 
user error. Include the necessary 
END statement for the source 
module. if the problem recurs, do 
the following before calling IBM 
for programming support: 


® Have source and associated 
listing available. 
IEYO016I ILLEGAL STA. 
Explanation: The context in which 
the statement in question has been 
used is illegal. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete 
illegal context. Examples: A 
specification or a DO statement 
appears in a Logical IF; an ENTRY 
statement appears outside a 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 

LEYO17I ILLEGAL STA. WRN. 
Explanation: The message is 
produced as a result of any of the 
following: a RETURN statement 
appears and the source module is 
not a subprogram; a RETURN i 
statement appears in a FUNCTION 
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TEY0181 


IEY019f1 


subprogram. 
(Condition code - 0) 


Programmer Response: Probable 
user error. Correct or delete a 


RETURN statement appearing outside 
a subprogram or a RETURN I 
statement appearing in a FUNCTION 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


NUMBER ARG 


Explanation: The reference to a 
library subprogram specifies an 
incorrect number of arguments. 
(Condition code - 4) 


Programmer Response: Probable 
user error. Correct or delete an 


invalid reference to a library 
subprogram specifying an incorrect 
number of arguments. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


FUNCTION ENTRIES UNDEFINED 


Explanation: In a FUNCTION 
subprogram, there was no statement 
to assign a value to the function 
name Or an entry name. If the 
FUNCTION subprogram contains no 
ENTRY statements, the error must 
be corrected. When ENTRY 
statements are present, this 
message is a warning provided that 
at least one function or entry 
name is assigned a value in the 
FUNCTION subprogram. However if 
no function or entry name is 
assigned a value, that error must 
be corrected. 

(Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that the 


function name and each entry name 
is assigned a value in a FUNCTION 
subprogram If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


IEYO201 


IEY0211 
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COMMON BLOCK name ERRORS 


Explanation: This message 
pertains to errors that exist in 
the definitions of EQUIVALENCE 
sets which refer to the COMMON 
area. The message is produced 
when there is a contradiction in 
the allocation specified, a 
designation to extend the 
beginning of the COMMON area, or 
if the assignment of 

COMMON storage attempts 

to allocate a variable to a 
location which does not fall on 
the appropriate boundary; "name" 
is the name of the COMMON block in 
error. 

(Condition code - 4) 


TEY0 221 


Programmer Response: Probable 
user error. Verify that 


definitions of EQUIVALENCE sets 
which refer to a COMMON area are 
correct. Make sure that none of 
the following occurs: a 
contradicition in the allocation 
specified, a designation to extend 
the beginning of the COMMON area, 
or an assignment of COMMON storage 
attempts to allocate a variable to 
a location which does not fall on 
the appropriate boundary. Use the 
MAP option to determine offsets in 
the COMMON block designated in 
error ("name"). If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEYO231 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


UNCLOSED DO LOOPS 


Explanation: The message is 
produced if DO loops are initiated 
in the source module, but their 
terminal statements do not exist. 
A list of the labels which 
appeared in the DO statements but 
were not defined follows the 
printing of the message. 
(Condition code - 8) 


IEYO24T 


Programmer Response: Probable 
user error. Correct or insert 
statements where DO loops are 
initiated and their terminal 
statements do not exist. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 
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e Have source and associated 
listing available. 


UNDEFINED LABELS 


Explanation: If any labels are 
used in the source module but are 
not defined, this message is 
produced. A list of the undefined 
labels appears on the lines 
following the message. 

(Condition code - 8) 


Probable 
or insert 


Programmer Response: 
user error. Correct 


necessary references to labels 
which require definition. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


EQUIVALENCE ALLOCATION ERRORS 


Explanation: This message is 
produced when there is a conflict 
between two EQUIVALENCE sets, or 
if there is an incompatible 
boundary alignment in the 
EQUIVALENCE set. The message is 
followed by a list of the 
vatiables which could not be 
allocated according to source 
module specifications. 
(condition code - 4) 


Programmer Response: Probable 
user error. Correct or delete 


conflicts between two EQUIVALENCE 
sets or incompatible boundary 
alignments in the EQUIVALENCE set. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Have source and associated 
listing available. 


EQUIVALENCE DEFINITION ERRORS 


Explanation: This message denotes 
an error in an EQUIVALENCE set 
when an array element is outside 
the array. (Condition code - 4) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid reference in the 
EQUIVALENCE set. If the problem 
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IEYO251I 


TEY0 261 


IEYO271 
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recurs, do the following before 
calling IBM for programming 
support: 


® Make sure that MAP has been 
specified as a parameter on the 
EXEC statement. 


*« Have source and associated 
listing available. 


DUMMY DIMENSION ERRORS TEY0 321 


Explanation: If variables 
specified as dummy array 
dimensions are not in COMMON and 
are not global dummy variables, 
the above error message is 
produced. A list of the dummy 
variables which are found in error 
is printed on the lines following 
the message. (Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that 


variables assigned to a program 
block are defined previously as in 
COMMON. If the problem recurs, do 
the following before calling IBM 
for programming support: IEY0331 
* Have source and associated 

listing available. 


BLOCK DATA PROGRAM ERRORS 


Explanation: This message is 
produced if variables in the 
source module have been assigned 
to a program block but have not 
been defined previously as COMMON. 
A list of these variables is 
printed on the lines following the 
message. (Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that 


variables assigned to a program 
block are defined previously as in 
COMMON. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. ITEY0361 
CONTINUATION CARDS DELETED 


More than 19 
continuation lines were read for 
one statement. All subsequent 
lines are skipped until the 
beginning of the next statement is 
encountered. 

(Condition code - 8) 


Explanation: 
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Programmer Response: Probable 
user error. Delete the 


continuation cards in error and 
begin a new source statement to 
correct the source. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


NULL PROGRAM 


Explanation: This message is 
produced when an end of file mark 
precedes any true FORTRAN 
statements in the source module. 
(Condition code - 0) 


Programmer Response: Probable 
user error. Correct or delete an 


end-of-file mark preceding any two 
FORTRAN statements in the source 
module. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


COMMENTS DELETED 


Explanation: More than 30 comment 
lines were read between the 
initial lines of two consecutive 
statements. The 31st comment line 
and all subsequent comment lines 
are skipped until the beginning of 
the next statement is encountered. 
(There is no restriction on the 
number of comment lines preceding 
the first statement.) 

(Condition code - 0) 


Programmer Response: Probable 
user error. Make sure that more 


than 30 comment lines do not 
appear between the initial lines 
of two consecutive statements. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


ILLEGAL LABEL WRN 


Explanation: The label on this 
nonexecutable statement has no 
valid use beyond visual 
identification, and may produce 
errors in the object module if the 
same label is the target of a 
branch type statement. (Only 
branches to executable statements 
are valid.) This message is 


TEY0371 


IEYO381 
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produced, for example, when an END 
statement is labeled. The message 
is issued as a warning only. 
(Condition code - 0) 


Programmer Response: Probable 
user error. Correct or delete the 


occurrence of a label on a 
nonexecutable statement having no 
valid use beyond visual 
identification. Make sure that 
only branches to executable 
statements are indicated. 





Example: An END statement is 
labeled. If the problem recurs, 


do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


PREVIOUSLY DIMENSIONED WRN 


Explanation: This message is 
produced if arrays are 
redimensioned. The dimensions 
first to be given are used. An 
example of a situation that would 
cause this message to be issued 
follows: Dimension information 
for an array is given in a type 
statement and subsequent COMMON 
and/or DIMENSION statements 
redefine the dimensions. 
(Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that arrays 


have not been redimensioned. 
Example: Dimension information 
for an array is given in a type 
statement and subsequent COMMON 
and/or DIMENSION statements 
redefine the dimensions. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


*« Have source and associated 
listing available. 


SIZE WRN 


Explanation: A variable has data 
initializing values that exceed 
the size of the scalar or the 
array Or array element. Examples 
of situations that would cause 
this message to be issued follow: 
(1) Five bytes of initializing 
data are given for a scalar 
variable, as in REAL A/*ABCDE'/ 
(2) Excessive bytes are given for 
an element of an array, as in DATA 
A (1)/‘ABCDEFG'/. 

(Condition code - 4) 
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Programmer Response: Probable 
user error. Make sure that data 


initializing values for a variable 
do not exceed the size of the 
scalar or the array or array 
element. Examples: Five bytes of 
initializing data are given for a 
scalar variable, as in 

REAL A/"ABCDE'/; excessive bytes 
are given for an element of an 
array, aS in DATA A(1)/'ABCDEFG'/. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 
TEY039I RETURN 


A RETURN statement 
(Condition code - 0) 


Explanation: 
is needed. 


Programmer Response: Probable 
user error. Insert missing RETURN 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


Status Messages 


The following paragraphs describe the 
messages that are produced during the 
operation of the (G) compiler which denote 
the progress of the compilation. Most of 
the messages discussed in this section 
pertain to the conditions that result in 
the termination of the compilation. 


TEYO28I NO CORE AVAILABLE-COMPILATION 
TERMINATED 
Explanation: This message is 


produced when the system is unable 
to supply the compiler with an 
additional 4K byte block of roll 
(or table) storage. 

(Condition code - 16) 


Programmer Response: Probable 
user error. Either segment the 


program unit into subroutines or 
specify a larger REGION size on 
the JOB or EXEC card. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 
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LTEYO291 


TEY0301 


IEYO311 
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e Have source and associated 
listing available. 


DECK OUTPUT DELETED ITEY0341 


Explanation: If the DECK option 
has been specified, and an error 
occurs during the process of 
punching the designated output, 
this message is produced. No 
condition code is generated for 
this error. 


Programmer Response: If the 
problem recurs, do the following 


before calling IBM for programming 
support: 


e Make sure that MSGLEVEL= (1,1) 
has been specified on the JOB 
statement. 


® Have source and associated 
listing available. 


LINK EDIT OUTPUT DELETED 


Explanation: If the LOAD option 
has been specified, and an error 
occurs during the process of 
generating the load module, this 
message is produced. 

(Condition code - 16) 


Programmer Response: If the 
problem recurs, do the following 


before calling IBM for programming 
support: 
LTEY0351I 
e Make sure that MSGLEVEL=(1,1) 
has been specified on the JOB 
statement. 


e Have source and associated 
listing available. 

ROLL SIZE EXCEEDED 

Explanation: This message is 

produced when the WORK or EXIT 

roll (table) has exceeded the 

storage capacity to which it has 

been assigned, or some other roll 

used by the compiler has exceeded 

64K bytes of storage. 

(condition code - 16) 


Programmer Response: Restructure 
the program unit and recompile. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


IEYO4OL 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 
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® Have source and associated 
listing available. 


I/O ERROR [COMPILATION TERMINATED} 
KXXe we XXX 


Explanation: This message is 
produced when an input/output 
error is detected during 
compilation. If the error 
occurred on SYSPUNCH, compilation 
is continued and the “COMPILATION 
TERMINATED" portion of the message 
is not printed. (Condition code - 
8). If the error occurred on 
SYSIN, SYSPRINT or SYSLIN, 
compilation is terminated. 
(Condition code - 16). Xxxx...xxx 
is the character string formatted 
by the SYNADAF macro instruction. 
For an interpretation of this 
information, see the publication 
IBM System/360 Operating System: 
Macro Instructions, Order No. 
GC28-6647. 





Programmer Response: Check all DD 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Make sure that MSGLEVEL=(1,1) 
has been specified on the JOB 
statement. 


e Have source and associated 
listing available. 


UNABLE TO OPEN ddname 


Explanation: This message is 
produced when the required ddname 
data definition card is missing or 
the ddname is misspelled. 


Programmer Response: Probable 
user error. Include the required 
ddname data definition statement 
Or correct a misspelled ddname. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Make sure that MSGLEVEL=(1,1) 
has been specified on the JOB 
statement. 


e Have source and associated 
listing available. 


COMMON ERROR IN BLOCK DATA 


Explanation: An error has ocurred 
in the use of a BLOCK DATA 
subprogram. There must be at 
least one named COMMON statement 
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within the BLOCK DATA subprogram. 
The BLOCK DATA subprogram cannot 
contain any references to blank 
COMMON. 

(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that there 
is at least one named COMMON 
statement within the BLOCK DATA 
subprogram. The BLOCK DATA 
subprogram cannot contain any 
references to blank COMMON. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


Informative Messages 


Informative messages are generated by 
the compiler to inform the programmer of 
the result of the compilation. The 
messages are shown with any compiler action 
taken. 


*OPTIONS IN EFFECT* option {,option}... 
*OPTIONS IN EFFECT* option {,option}... 
*STATISTICS* SOURCE STATEMENTS=nnnnnnnn, 
PROGRAM SIZE=nnnnnnnns 
and 
*STATISTICS* NO DIAGNOSTICS GENERATED 
or 
*STATISTICS* nnn DIAGNOSTICS GENERATED, 
HIGHEST SEVERITY CODE IS n 


where 


nnnnnnnn, 
is the number of source statements, 
expressed as a decimal integer. 


nnnnnnnn, 
is the size, in bytes, of the abject 
module expressed as a decimal integer. 


nnn 
is the number of diagnostics 
generated, expressed as a decimal 
integer. 

n 


is the condition code. 


The first statistics message (giving source 
Statements and program size) is suppressed 
whenever a BLOCK DATA subprogram is 
compiled; however, the two 
options-in-effect messages and one of the 
other statistics messages will still 
appear. 
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If there was more than one compilation 
(i.e., there was a multiple compilation), 
one final message is printed. This message 
is suppressed when there is only one main 
or subprogram. The message appears as 
either: 


*STATISTICS* NO DIAGNOSTICS THIS STEP 
or 
*STATISTICS* nnn DIAGNOSTICS THIS STEP 


Explanation: If there were no errors in 
any of the compilations the first message 
is printed. The second message is printed 
when there are errors in one or more of the 
compilations; the cumulative number of 
errors is indicated by the value nnn. 


FORTRAN IV _(H) COMPILER DIAGNOSTIC MESSAGES 


Two types of compiler diagnostic 
messages are generated - informative and 
error /warning. 


Informative Messages 


Six unnumbered messages are generated by 
the compiler to provide the programmer with 
compilation information. 


LEVEL- dmthyr 0OS/360 FORTRAN IV 
DATE- yy.ddd/HH.mm.ss 


Explanation: This message is generated at 
the beginning of every compilation. The 
level date of the compiler is given by 
"dmthyr", where d is the day of the month 
(mth) in the year (yr). The number of the 
day (ddd) in the year (yy) that the 
compilation takes place is given by 
"yy.ddd"; the time of day in hours (HH), 
minutes (mm), and seconds (ss) (based ona 
24-hour clock) is given by “HH.mm.ss". The 
time is also punched into the END card of 
the object deck. 


COMPILER OPTIONS - option{option}... 


Explanation: This message is printed on 
the first page of every source listing. 
Options explicitly specified in the PARM 
parameter and any default options appear in 
the message. 


*OPTIONS IN EFFECT* NAME=xxxxxx,OPT=0n, 
LINECNT=xx 

*OPTIONS IN EFFECT* option {,option}... 

*STATISTICS* SOURCE STATEMENTS=nnnnnnnn,, 
PROGRAM SIZE=nnnnnnnn,z 

*STATISTICS* NO DIAGNOSTICS GENERATED 
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or 


*STATISTICS* nnn DIAGNOSTICS GENERATED, 
HIGHEST SEVERITY CODE IS n 


Explanation: This message appears 
immediately before the ****** END OF 
COMPILATION #*#*#** message. It indicates 
the size of both the source module and the 
object module as well as the FORTRAN (H) 
environment in which they were processed. 


nnnnnnnn, 
is the number of source statements 
(comments cards are not included) 
expressed as a decimal integer. 


nnnnnnnns 
is the size of the object module, in 
bytes, expressed as a decimal integer. 


nnn 
is the number of diagnostics for each 
compilation expressed as a decimal 
integer. 


The options indicated are the default 
options and those explicitly specified in 
the PARM parameter of the EXEC statement. 
For a full explanation of these options, 
see "Compiler Options" in the "FORTRAN Job 
Processing™ section of this publication. 
The severity code, n, is the completion 
code. 


nnnnK BYTES OF CORE NOT USED 


Explanation: This message is produced if 
more than 10K bytes of available work area 
is not used during compilation. This 
message appears immediately after the 
*¥*#44%% END OF COMPILATION ****#* message. 
The term nnnn indicates how much smaller 
the region size could be during 
compilation. If a SIZE option is indicated 
for the compilation step, the term nnnn 
indicates how much smaller the specified 
SIZE value could be. 


*44444END OF COMPILATION*+##4#4# 


Explanation: This message, which indicates 
that all processing of the source program 
has been completed, is generated at the end 
of every compilation except when an 
abnormal termination causes the generation 
of the message COMPILATION DELETED. n 


If there is more than one compilation in 
a job step, one of the following messages 
will be printed after the last compilation: 
*STATISTICS* NO DIAGNOSTICS THIS STEP 
or 
*STATISTICS* nnn DIAGNOSTICS THIS STEP, 
HIGHEST SEVERITY CODE IS n 
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Explanation: If there were no errors in 
any Of the compilations, the first message 
is printed. The second message is printed 
when there are errors in one or more of the 
compilations; the cumulative number of 
errors is indicated by the value nnn. The 
severity code, n, is the completion code. 


Error/Warning Messages 


The following text contains a 
description of error/warning messages 
produced by the compiler. The message is 
shown with an explanation, and any compiler 
action or user action that is required. 


All error/warning messages produced are 
written in a group following the source 
module listing and object module name 
table. Figure 98 shows the format of each 
message as it is written in the data set 
specified by the SYSPRINT DD statement. 


There are three types of messages: (1) 
a terminal error message, (2) serious error 
messages, and (3) warning messages. The 
terminal error message returns a condition 
code of 16; the serious error messages a 
code of 8; and the warning messages a code 
of 4. 


(ae ee ee a ee ee a ee 7 
ERROR NO. ERROR MESSAGE 

ISN a | 
LABEL b TEKxxxI message | 
NAME c | 

| 

4 


| 

| 

| 

| 

| 

| 

[ 

| is the internal statement | 
| number of either the state-| 
| ment in error or the state-| 
| ment following the last | 
| previous executable | 
| statement. | 
{ b is a source label (state- | 
{ ment number) | 
[| c is a variable name | 
| xxx is a 3-digit message | 
I number { 
| is the actual message | 
| printed | 
i 


message 


Figure 98. Format of Diagnostic Messages 


In addition, following the statement in 
which a serious error is detected, the 
following appears in the source listing: 
ERROR DETECTED ~ SCAN POINTER = x; x 
represents the position of the character 
pointed to by the compiler's scan pointer 
at the time the error is detected. Any 
FORTRAN keywords and/or meaningless blanks 
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are ignored in determining the position of 
the character. (If the statement is found 
to be invalid during the classification 

process, the value of x always equals one.) 


In the case of compilation deletion, the 
following message appears: 


COMPILATION DELETED. n 


where n can be 1, 2, 3, 4, 5, 6, or 7 


Explanation: The message is generated by 
the FORTRAN System Director. The 
compilation is deleted because of the 
reason indicated by the value of n. 
(Condition code - 16) 


n=1 Phase 10 Program too large to compile 
or main storage allocation is too 
small for compiler size. 

n=2 A program interrupt occurred during 
execution of the compiler. A program 
interrupt message and the contents of 
all registers are written preceding 
the message. 


Figure 99 shows the format of the 
compile-time program interrupt 
message when the extended error 
message facility has not been 
specified at system generation time. 
In the old PSW, c is a hexadecimal 
number that indicates the cause of 
the interruption; c may be one of the 
following values: 


Cause 

Operation 

Privileged operation 
Execute 

Protection 
Addressing 
Specification 

Data 

Fixed-point overflow 
Fixed-point divide 
Decimal overflow 
Decimal divide 
Exponent overflow 
Exponent underflow 
Significance 
Floating-point divide 


HHO PRP CONNNEWNPIOA 


Following PHASE SWITCH, mis a 
hexadecimal number that indicates 
which phase of the compiler was 
executing when the interrupt 
occurred; m may be one of the 


following values: 


Phase 

Phase 10 

Phase 10 (STALL routine) 
Phase 15 (PHAZ15 routine) 
Phase 15 (CORAL routine) 
10 Phase 20 

20 Phase 25 

40 Phase 30 


OFNEHIS 


"ll 
Mew 


Phase 15 Program too large to compile 
Phase 20 Program too large to compile 
Phase in control requested System 
Director to terminate compilation 
immediately. (Any error messages 
generated by the calling phase will 
also be written.) 
n=6 Error detected by IHCFCOMH (IBCOM) 
I/O error detected during compilation 
~ an IHCxxxI message may also be 
generated 
n=7 End of file, no END statement in 
source module 


p55 


IEKO01I THE NUMBER OF ENTRIES IN THE ERROR 


TABLE HAS EXCEEDED THE MAXIMUM. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 
statements in error. If the 


problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that all indicated 
statements in error are 
corrected. 


e Have source and associated 
listing available. 


Appendix D: System Diagnostics 167 


Page of GC28-6817-2, Revised 12/30/70, by TNL: GN28-0591 


| 
| IHC2101 


Figure 99, 


ITEKOO02T 


TEKO031 


TEKOOSI 


TEKOC6I 
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THE DO LOOPS ARE INCORRECTLY 
NESTED. 


(condition code ~ 8) 


Programmer Response: Probable 
user error. Resubmit the job with 


all statements in the range of the 
inner DO also in the range of the 
outer DO. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Make sure that the extended 
range of a DO statement does not 
contain another DO statement 
that has an extended range if 
the second Co is within the same 
program unit as the first. 


® Have source and associated 
listing available. 


THE EXPRESSION HAS AN INVALID 
LOGICAL OPERATOR. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


logical operator. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE STATEMENT HAS AN INVALID USE 
OF PARENTHESES. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


parenthesis in question. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE STATEMENT HAS AN 
LABEL. 


INVALID 


(Condition code - 8) 


Compile-Time Program Interrupt Message 


IEKOO7I 


IEKOO8I 


IEKOO9I 


ITEKO1i0I 


PROGRAM INTERRUPT ~- OLD PSW IS xxxxxxxCXxxxxxxx - PHASE SWITCH m | 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS AN INVALID 
DOUBLE DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A CONSTANT 
WHICH IS GREATER THAN THE 
ALLOWABLE MAGNITUDE. 


(condition code - 8) 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A NON-NUMERIC 
CHARACTER IN A NUMERIC CONSTANT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


constant contains only numeric 
characters. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A CONSTANT WITH 
AN INVALID EXPONENT. 


(Condition code - 8) 


ITEKO111 


TEK0121 


IEKO131 


IEKO141 
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Programmer Response: Probable 
user error. Delete or correct the 


invalid exponent. Make sure that 
the base and exponent are valid 
combinations of operand types. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


If 


e Have source and associated 
listing available. 


THE ARITHMETIC OR LOGICAL 
EXPRESSION USES AN EXTERNAL 
FUNCTION NAME AS A VARIABLE NAME. 


IEKO15I 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


external function name is not 
employed as a variable. Resubmit 
the job using the MAP option to 
obtain indication of the use of 
each name. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e® Have source and associated 
listing available. 


THE EXPRESSION HAS A COMPLEX 
CONSTANT WHICH IS NOT COMPOSED OF 
REAL CONSTANTS. 


IEKO161 


(Condition code - 8) 


Programmer Response: Probable 
user errore Make sure that both 


the real and imaginary parts of 
the complex number are valid real 
constants. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 
TEKO171 


AN INVALID CHARACTER IS USED AS A 
DELIMITER. 
(condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid character. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS AN INVALID 
NON-INTEGER CONSTANT. 
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(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid non-integer constant. If 
the problem recurs, do the 
following before calling IBM for 


programming support: 


e Have source and associated 
listing available. 


THE ARITHMETIC OR LOGICAL 
EXPRESSION USES A VARIABLE NAME AS 
AN EXTERNAL FUNCTION NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


variable is not employed as an 
external function. Resubmit the 
job using the MAP option to obtain 
indications of the use of each 
name. If the problem recurs, do 
the following before calling IBM 
for programming support: 


® Have source and associated 
listing available. 


THE GO TO STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


statement contains valid 
delimiters. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE ASSIGNED OR COMPUTED GO TO HAS 
AN INVALID ELEMENT IN ITS 
STATEMENT NUMBER LIST. 


(condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


statement number list contains 
executable statement numbers. If 
an assigned GO TO is in question, 
Make sure that the ASSIGN 
statement is correct. If the 
problem recurs, do the following 
betore calling IBM for programming 
support: 


® Have source and associated 
listing available. 
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TEKO201 


LEKO 211 


TEKO221 
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THE ASSIGNED GO TO HAS THE OPENING 
PARENTHESIS MISPLACED OR MISSING, 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct or insert 
parenthesis. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 





IEKO24T 


e Have source and associated 
listing available. 


THE ASSIGNED GO TO HAS AN INVALID 
DELIMITER FOLLOWING THE ASSIGNED 
VARIABLE. 


(Condition code - 8} 


rammer Re Probable 
user error. Make sure that a 
comma follows the assigned 
variable. If the problem recurs, 
do the following before calling 
IBM for programming support: 


TEK0251 


e Have source and associated 
listing available. 


THE COMPUTED GO TO HAS AN INVALID 
COMPUTED VARIABLE. 


(condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
referenced variable is integer and 
non-subscripted. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEKO261 


e Have source and associated 
listing available. 


THE VARIABLE IN THE ASSIGNED GO TO 
STATEMENT IS NOT INTEGRAL. 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct the 
non-integral variable. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IEKO271 


e Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID DATA SET REFERENCE NUMBER. 


(Condition code - 8) 


GN28-0591 


Programmer Response: Probable 
user error. Make sure that the 
data set reference number or size 
is an integer constant. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID INTEGER CONSTANT AS THE 
RECORD NUMBER OR SIZE. 


(condition code —- 8) 


Programmer Response: Probable 
user error. Correct the invalid 
integer. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID FORMAT CONTROL CHARACTER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
format control character is one of 
L, E, or Ue. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE ASSIGN STATEMENT HAS AN 
INVALID INTEGER VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid integer variable. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


LTEKO281 


TEKO301 


TEKO311 


TEKO34TI 


Page of 


e Have source and associated 
listing available. 


THE ASSIGN STATEMENT HAS AN 
INVALID DELIMITER. 


(condition code - 8) 


Programmer Response: Probable 
user error. Determine the invalid 
delimiter and correct the 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e® Have source and associated 
listing available. 


THE DO STATEMENT HAS AN INVALID 
END OF RANGE STATEMENT NUMBER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
end of range statement number is 
an executable statement number 
appearing after the DO statement. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


® Have source and associated 
listing available. 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID INITIAL VALUE, 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that the 


initial value is either an 
unsigned integer constant greater 
than zero, or an unsigned non- 
subscripted integer variable 
greater than zero. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE ASSIGNMENT STATEMENT BEGINS 
WITH A NON~VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 
statement. Resubmit the job with 
the MAP option to determine the 
nature of the non-variable in 
question, if possible. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 
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TEKO351 


IEKO361 


TEKO391 


IEKO4OL 
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e Have source and associated 
listing available. 


THE NUMBER OF CONTINUATION CARDS 
EXCEEDS THE COMPILER LIMIT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


statement does not extend over 
more than 19 continuation cards. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE STATEMENT CONTAINS INVALID 
SYNTAX, THE STATEMENT CANNOT BE 
CLASSIFIED. 


(Condition code ~- 8) 


Programmer Response: Probable 
user error. Correct the 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID ASSOCIATED VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that the 


associated variable is 
non-subscripted and integral. 

Make sure that the associated 
variable does not appear in the 
I/O list of a READ or WRITE for a 
data set associated with the 
DEFINE FILE statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


IT IS ILLEGAL TO HAVE A & 
STATEMENT NUMBER PARAMETER OUTSIDE 
A CALL STATEMENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete the & 


statement number. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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TEKO70L 


TEKO711 


TEKO721 


TEKO731 
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Programmer Response: Probable 
user error. Delete or correct the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS A 
MISSING OR MISPLACED DELIMITER. IEKO7 41 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that there 


are as many left parentheses as 
there are right parentheses. 
Check all commas. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. IEKO75I 

THE EQUIVALENCE STATEMENT DOES NOT 

SPECIFY AT LEAST TWO VARIABLES TO 

BE EQUIVALENCED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check delimiters and 
correct the invalid source. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 

e Have source and associated IEKO761 
listing available. 


THE EQUIVALENCE STATEMENT HAS AN 
INVALID VARIABLE NAME. 


(Condition code - 8) 


Programmer Response: Frobable 
user error. Delete or correct the 
invalid variable name. Make sure 
that the variable in question is 
not a dummy argument. If 
necessary, invoke the MAP option 
for indications of the use of 
variable names. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEKO771I 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS A 
SUBSCRIPT WHICH IS NOT AN INTEGER 
CONSTANT. 
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(Condition code — 8) 


Programmer Response: Probable 
user error. Correct the invalid 


subscript. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A VARIABLE WITH 
MORE THAN SEVEN SUBSCRIPTS. 


(Condition code ~ 8) 


Programmer Response: Probable 
user error. Check that all commas 


are in correct position. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


°e Have source and associated 
listing available. 


THE COMMON STATEMENT HAS A 
VARIABLE THAT HAS BEEN REFERENCED 
IN A PREVIOUS COMMON STATEMENT. 


(Condition code - 8) 


Programmer Response: Probable 


user error. Correct or delete the 
redundant entry. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT IS NOT THE 
FIRST STATEMENT IN A MAIN PROGRAM 
OR THE SECOND STATEMENT IN A 
SUBPROGRAM. 


(Condition Code - 8) 


Programmer Response: Probable 
user error. Place the IMPLICIT 


statement in correct sequence. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS A 
MISPLACED DELIMITER IN THE TYPE 
SPECIFICATION FIELD. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 


TEKO78I 


IEKO791 


IEKO80I 


ITEKO811 
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recurs, do the following before IEK08 21 
calling IBM for programming 


support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS AN 
INVALID TYPE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that for 


any type there is a corresponding 
valid standard or optional length 
specification. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


TEK08 31 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS A 
MISSING LETTER SPECIFICATION. 
(Condition code - 8) 

Programmer Response: Probable 
user error. Insert the omitted 
specification. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEKO8 41 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS AN 
INVALID LETTER SPECIFICATION, 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 
letter specification. If the 
problem recurs, do the following 
before calling IBM for programming 


support: 


IEKO8 61 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS AN 
INVALID DELIMITER. 
(condition code - 8) 

Programmer Response: Probable 
user error. Delete or correct the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

e Have source and associated IEKO871 
listing available. 
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THE IMPLICIT STATEMENT DOES NOT 
END WITH A RIGHT PARENTHESIS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Insert the omitted 
parenthesis. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS A 
MISPLACED DELIMITER IN ITS 
PARAMETER FIELD. 


(Condition code - 8) 

Programmer Response: Probable 
user error. Delete or correct the 
misplaced delimiter. If the 


problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT CONTAINS A 
LITERAL FIELD. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make ‘sure that there 


are no apostrophes or wH 
specifications in the IMPLICIT 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


THE COMMON STATEMENT SPECIFIES A 
NON-VARIABLE TO BE ENTERED. 


(condition code - 8) 


Programmer Response: Probable 
user error. Make sure that 


delimiters are in correct 
position. Check that only 
variable or array names are 
specified for entrance into a 
common block. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE COMMON STATEMENT SPECIFIES A 
NON-VARIABLE COMMON BLOCK NAME. 
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TEKO88I 


LTEKO9O0L 


IEKO91T 


TEKO92T 
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(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


name. If the problem recurs, do 
the following before calling IBM 
for programming support: 


IEKO93I 


e Have source and associated 
listing available. 


A DUMMY ARGUMENT IN A SUBPROGRAM 
STATEMENT MAY NOT BE IN COMMON 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that only 
variable or array names appear in 
the COMMON statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


TEKO94T 


e Have source and associated 
listing available. 


THE EXTERNAL STATEMENT HAS A 
NON-VARIABLE DECLARED AS EXTERNAL. 
(Condition code - 8) 
Programmer Response: Probable 
user error. Correct the 
non-variable name. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 





TEKO951 


® Have source and associated 
listing available. 


THE EXTERNAL STATEMENT HAS AN 
INVALID DELIMITER. 
(Condition code - 8) 
Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 





TEKO96I 


e® Have source and associated 
listing available. 


THE TYPE STATEMENT MULTIPLY 
DEFINES THE VARIABLE. 
Condition code - 8) 
Programmer Response: Probable 
user error. Correct or delete the 
variable in question. If the 
problem recurs, do the following 


before calling IBM for programming 
support: 


IEK1011 


e Have source and associated 
listing available. 


THE TYPE STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the probelm 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE TYPE STATEMENT HAS A 
NON-VARIABLE TO BE TYPED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
non-variable. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE TYPE STATEMENT HAS THE WRONG 
LENGTH FOR THE GIVEN TYPE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
specified length is permissible 
for the associated type. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE TYPE STATEMENT HAS A MISSING 
DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct, delete, or 


insert the delimiter in question. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 


listing available. 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID DELIMITER. 


TEK1021 


ITEK104I1 


TEK109T1 
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(Condition code - 8) IEK1i101 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE BACKSPACE/REWIND/END FILE 
STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) TEKi111 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


e Have source and associated 
listing available. 


THE BACKSPACE/REWIND/END FILE 
STATEMENT HAS A DATA SET REFERENCE 
NUMBER THAT IS EITHER A 
NON-INTEGER OR AN ARRAY NAME. 


(Condition code - 8) 
TEK1i121 


Programmer Response: Probable 
user error. Make sure that the 


specified data set reference 
number is either an unsigned 
integer constant or an integer 
variable of length 4 If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE PAUSE STATEMENT HAS A 
MISPLACED DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


PAUSE statement contains either no 
delimiter or a literal constant 
enclosed in single quotes. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 
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THE PAUSE STATEMENT SPECIFIES A 
VALUE WHICH IS NEITHER A LITERAL 
NOR AN INTEGER CONSTANT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


value. If the problem recurs, do 
the following before calling IBM 
for programming support: 


* Have source and associated 
listing available. 


THE PAUSE STATEMENT HAS MORE THAN 
255 CHARACTERS IN ITS LITERAL 
FIELD. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid characters. Make sure 
that continuation cards are 
correctly indicated. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE DICTIONARY HAS OVERFLOWED. 


(Condition code - 16) 


Programmer Response: Probable 
user error. If the SIZE parameter 


is specified incorrectly, 

(IEK4101I) correct it and resubmit 
the job. If SIZE is coded 
correctly, then increase the SIZE 
value. Make sure that the region 
or partition in which the compiler 
is running is at least 10K larger 
than the specified SIZE value. If 
SIZE is not specified, increase 
the REGION size on the JOB or EXEC 
card. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Make sure that MSGLEVEL=(1,1) 
was specified in the JOB 
statement. 


e Have source and associated 
listing available. 


® Have available the value of the 
SIZE parameter assigned at 
system generation time. 
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THE VARIABLE RETURN STATEMENT HAS 
NEITHER AN INTEGER CONSTANT NOR 
VARIABLE FOLLOWING THE KEYWORD. 


(Condition code - 8) IEK1211 


Programmer Response: Probable 
user error. Correct or delete the 


invalid constant or variable. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID PARAMETER. 


(Condition ccde - 8) 
IEK1221 


Programmer Response: Probable 
user error. Make sure that the DO 
variable is a non-subscripted 
integer variable. Check that the 
initial value, test value, and 
increment (if specified) are 
either unsigned integer constants 
greater than zero, or unsigned 
nonsubscripted integer variables 
whose value is greater than zero. 
Verify that the test value does 
not exceed the allowable 
Magnitude. If the problem recurs, 
do the following before calling 
IBM for programming support: 





IEK1i231 
e Have source and associated 
listing available. 


THE BLOCK DATA STATEMENT HAS AN 
INVALID DELIMITER. 


(condition code:-- 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
ITEK1241 
® Have source and associated 
listing available. 


THE BLOCK DATA STATEMENT WAS NOT 
THE FIRST STATEMENT OF THE 
SUBPROGRAM.) 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete the invalid 


delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


THE DATA STATEMENT HAS A VARIABLE 
WHICH HAS A NON-ALPHABETIC FIRST 
CHARACTER. 


(Condition code - 8) 


Probable 
or delete the 


Programmer Response: 
user error. Correct 


invalid variable, or correct any 
erroneous delimiters. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


°® Have source and associated 
listing available. 


THE DATA STATEMENT CONTAINS A 
SUBSCRIPTED VARIABLE WHICH HAS NOT 
BEEN DEFINED AS AN ARRAY. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Either define the 


variable as an array, or correct 
the variable in the DATA 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE DATA STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE DATA STATEMENT HAS A VARIABLE 
WITH AN INVALID INTEGER SUBSCRIPT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


subscript quantity contains only 
integer constants separated by 
commas. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


TEK1 251 


TEK1291 


TEK1321 


TEK1331 
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THE DATA STATEMENT HAS A VARIABLE IEK1341 
WITH A SUBSCRIPT THAT CONTAINS AN 
INVALID DELIMITER. 


(Condition code —- 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT CONTAINS AN INVALID 
DATA CONSTANT. 


TEK1351 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


constant is valid for its 
designated class and/or type. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


If 


e Have source and associated 
listing available. 


THE DATA STATEMENT HAS AN INVALID 
DELIMITER IN ITS INITIALIZATION 
VALUES. 
IEK1361 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE DO STATEMENT CANNOT FOLLOW A 
LOGICAL IF STATEMENT. 
IEK1371 


(Condition code - 8) 


Programmer Response: Probable 
user error. Change the DO to a GO 


TO n, where n is the statement 
label of the DO located elsewhere 
in the program unit. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e® Have source and associated 
listing available. 
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THE DO STATEMENT HAS AN INVALID 
INTEGER DO VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


integer DO variable is a non- 
subscripted integer variable. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


Tf 


e Have source and associated 
listing available. 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID TEST VALUE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


test value is either an unsigned 
integer constant. greater than 
zero, or an unsigned 
nonsubscripted integer variable 
greater than zero. Verify that 
the test value cloes not exceed 
231-1. If the problem recurs, do 
the following before calling IBM 
for programming support: 


® Have source and associated 
listing available. 


THE NUMBER OF NIESTED DO'S EXCEEDS 
THE COMPILER LIMIT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


maximum level of nesting for DO 
loops, 25, is not exceeded. If 
the problem recirs, do the 
following before calling IBM for 
programming supoort: 


* Have source and associated 
listing available. 


THE DO STATEMENT OR IMPLIED DO HAS 
AN INVALID INCREMENT VALUE. 
(Condition code —- 8) 

Programmer Response: Probable 
user error. Make sure that the 
increment value is either an 
unsigned integer constant greater 
than zero, or an unsigned non- 
subscripted integer variable 
greater than zero. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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TEK139I 


IEK1401 


TEK1411 
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® Have source and associated 
listing available. 


THE DO STATEMENT HAS A PREVIOUSLY 
DEFINED STATEMENT NUMBER SPECIFIED 
TO END THE DO RANGE. 


(Condition code - 8) 

IEK1431 
Programmer Response: Probable 
user error. Verify that the 
statement number specified to end 
the DO range is an executable 
statement number appearing after 
the DO statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


A LOGICAL IF IS FOLLOWED BY 
ANOTHER LOGICAL IF OR A 
SPECIFICATION STATEMENT. 


TEK1441 


(Condition code - 8) 


Programmer Response: Probable 
user error. Change the latter 


logical IF to a GO TO n, where n 
is the statement label of the 
logical IF located elsewhere in 
the program unit. Include the 
specification statement in the 
prescribed order prior to 
executable statements and 
statement function definitions, if 
any. If the problem recurs, do 
the following before calling IBM 
for programming support: 


TEK145I1 


e Have source and associated 
listing available. 


THE IF STATEMENT BEGINS WITH AN 
INVALID CHARACTER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid character. If the problem 
recurs, do the following before 
calling IBM for programming 
supports: 


IEK1461 
® Have source and associated 
listing available. 


THE FORMAT STATEMENT DOES NOT END 
WITH A RIGHT PARENTHESIS, 


(Condition code - 8) 
Programmer Response: Probable 


user error. Correct any invalid 
delimiters and include the right 
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parenthesis. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE STATEMENT FUNCTION HAS AN 
ARGUMENT WHICH IS NOT A VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
arguments are non-subscripted 
variables. If the problem recurs, 
do the following defore calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE STATEMENT FUNCTION HAS MORE 
THAN 20 ARGUMENTS. 


(Condition. code - 8) 


Programmer Response: Probable 
user error. Redefine the 


arguments so that the 20 argument 
limit is not exceeded. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT FUNCTION HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 
Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT FUNCTION HAS A 
MISPLACED EQUAL SIGN. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
misplaced equal sign. If the 


problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


IEK1i471 


ITEK1481 


LEK149I1 


IEK1i50I 
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A STATEMENT FUNCTION DEFINITION 
MUST PRECEDE THE FIRST EXECUTABLE 
STATEMENT. 
IEK1511 
(Condition code - 8) 


Programmer Response: Probable 
user error. Resequence the 


definition so that it follows only 
SUBPROGRAM, IMPLICIT, or other 
specification statements. Include 
a DIMENSION statement if it has 
been omitted. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated | 
listing available. TEK1521 

THE DIMENSIONED ITEM HAS A 

NON-INTEGER SUBSCRIPT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Verify that the 


subscript quantity is validly 
constructed. If the problem 
recurs, do the following before 
calling IBM for programmer 
support: 


e Have source and associated 
listing available. TEK1531 

A VARIABLE TO BE DIMENSIONED USING 

ADJUSTABLE DIMENSIONS MUST HAVE 

BEEN PASSED AS AN ARGUMENT AND 

MUST NOT APPEAR IN COMMON. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Remove the variable 
name from the COMMON statement, if 
it has been entered in a COMMON 
statement. Place the variable in 
the argument list, if not already 
there. If the problem recurs, do 
the following before calling IBM 
for programming support: 

e Have source and associated IEK1561 
listing available. 


THE DIMENSIONED ITEM HAS AN 
INVALID DELIMITER. 


(Condition code —- 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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e Have source and associated 
listing available. 


THE STATEMENT SPECIFIES A 
NON-VARIABLE TO BE DIMENSIONED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


non-variable name. If the problem 
recurs, do the ffollowing before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE SUBPROGRAM STATEMENT HAS AN 
INVALID DELIMITER IN THE ARGUMENT 
LIST. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS AN INVALID NAME 
SPECIFIED AS A FUNCTION REFERENCE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 
function has been correctly 
defined. Verify that the type of 
the name used for the reference 
agrees with the type of name used 
in the definition. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE I/0 STATEMENT HAS AN INVALID 
NAME PRECEDING THE EQUAL SIGN. 


(Condition code - 8) 


Programmer Response: Probable 
user error, Correct or delete the 
invalid name. If the problem 
recurs, do the following before 
calling IBM foi: programming 
support: 


® Have source and associated 
listing available. 
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TEK1591I 
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THE I/O STATEMENT HAS A 
NON-VARIABLE SPECIFIED AS A LIST 
ITEM. 
(Condition code - 8) 
Programmer Response: Probable TEK1611I 
user error. Make sure that the 
I/O list contains variable names, 
subscripted or unsubscripted array 
names, Or array names accompanied 
by indexing specifications in the 
form of an implied DO. Verify 
that no function references or 
arithmetic expressions appear in 
the I/O list. Use the MAP option 
to determine the use of names in 
the program unit. If the problem 
recurs, do the following before 
calling IBM for programming 
support: TEK1i631 
e Have source and associated 

listing available. 


THE I/O STATEMENT HAS AN IMPROPER 
PAIRING OF PARENTHESES IN AN 
IMPLIED DO, OR A NON-INTEGRAL 
INDEX. 


(Condition code - 8) 


grammer Probable | 
user error. Make sure that there 
are as many left parentheses as 
there are right parentheses, 
Correct any invalid index. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IEK1641 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT DOES NOT HAVE 
A STATEMENT NUMBER. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Insert the required 
statement number. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

e Have source and associated IEK165I 
listing available. 


THE I/O STATEMENT HAS AN INVALID 
DELIMITER IN THE PARAMETERS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid delimiter. If the problem 


recurs, do the following before 
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calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE I/0 STATEMENT HAS A DUPLICATE 
PARAMETER. 


(condition code - 8) 


Programmer Response: Probable 
user error. Delete the duplicate 


parameter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


THE I/O STATEMENT HAS AN ARRAY 
WHICH IS NOT DIMENSIONED. 


(condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


subscripted array name ox array 
name in the form of an IMPLIED DO 
has been previously declared ina 
DIMENSION statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE I/O STATEMENT HAS AN 
ARITHMETIC EXPRESSION OR A 
FUNCTION NAME SPECIFIED AS A LIST 
ITEM. 


(condition code - 8) 


Programmer Response: Probable 
user error. Verify that no 


function references or arithmetic 
expressions are contained in the 
I/O list. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE I/O STATEMENT HAS A PARAMETER 
WHICH IS NOT AN ARRAY AND NOT A 
NAMELIST NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid parameter. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


IEK1661 


ITEK1671 


IEK1i681 
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e Have source and associated 
listing available. 


TEK1691 


THE I/O STATEMENT HAS A 
NON-INTEGER CONSTANT OR VARIABLE 
REPRESENTING THE DATA SET 
REFERENCE NUMBER. 
(Condition code - 8) 

Programmer Response: Probable 
user error. Make sure that the 
data set reference number is 
either an unsigned integer 
constant or an integer variable of 
length 4. If the problem recurs, 
do the following before calling 
IBM for programming support: 


IEK1701 


e Have source and associated 
listing available. 


THE STATEMENT HAS AN INVALID USE 
OF A STATEMENT FUNCTION NAME. 
(Condition code - 8) 

Programmer Response: Probable 
user error. Verify that the 
statement function name has been 
previously defined. Correct any 
invalid references. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


TEK1711 


e® Have source and associated 
listing available. 


THE STATEMENT SPECIFIES AS A 
SUBPROGRAM NAME A VARIABLE WHICH 
HAS BEEN PREVIOUSLY USED AS A 
NON-SUBPROGRAM NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. If the desired 


subprogram name duplicates a 
variable name, change the variable 
name and all references to it. 

Use the XREF option to determine 
where the variable occurs if the 
program unit contains many 
statements. If the subroutine 
name is in error, correct it. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


If 


IEK1761 
e Have source and associated 
listing available. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement, and that 
the necessary DD statement is 
included. 
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THE DIRECT ACCESS I/O STATEMENT 
MAY NOT SPECIFY A NAMELIST NAME. 


(Condition code - 8) 


Programmer Respcnse: Probable 
user error. Change the data set 


reference number so that it refers 
to a valid sequential device. If 
the problem recurs, do the 
following before: calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE DIRECT ACCESS I/O STATEMENT 
HAS A NON-INTEGER SPECIFYING THE 
RECORD'S RELATIVE POSITION. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


non-integer reference. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing availiable. 


THE NAME SPECIFIED FOR AN ENTRY 
POINT HAS ALREADY BEEN USED AS 

EITHER A VARIABLE SUBROUTINE OR 
FUNCTION NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Change the entry 


point name and all references to 
it so that duplication is 
eliminated. Determine if the name 
was erroneously used previously 
and correct it. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC sittatement, and that 
the necessary DD statement is 
included. 


THE I/O STATEMENT CONTAINS INVALID 
SYNTAX IN ITS I}MPLIED DO. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that 
indexing parameters are correctly 
specified. Verify that there are 
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IEK1921 


IEK193I1 


TEK194T 
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no more than 20 implied DO's per 
statement. Correct any erroneous 
delimiters. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A LABEL WHICH IS 
SPECIFIED AS BOTH THE LABEL OF A 

FORMAT STATEMENT AND THE OBJECT OF 
A BRANCH. IEK1971I 


(Condition code - 8) 


Programmer’ Response: Probable 
user error. If the branch has 


been specified erroneously to a 
FORMAT statement, correct it. 
Correct or delete any misplaced 
labels. Use the XREF option for 
listings of the internal statement 
number of the statements in which 
the label is defined and 
referenced. If the problem 
recurs, do the following before 
calling IBM for programming 
support : IEKi99I 
e Have source and associated 

listing available. 


e Make sure that the XREF option 
is specified in the PARM field ‘ 
of the EXEC statement, and that 
the necessary DD statement is 
included. 


THE STATEMENT NUMBER HAS BEEN 
PREVIOUSLY DEFINED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Change the statement 
number. Use the XREF option where 
many labels occur to determine 
which are unused. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEK2001 


® Have source and associated 
listing available. 


e Make sure that the XREF option 

is specified in the PARM field 

of the EXEC statement, and that 

the necessary DD statement is 

included. 

IEK202I 

THE TYPE STATEMENT HAS A MISSING 
DELIMITER IN THE INITIALIZATION 
VALUES. 


(Condition code - 8) 


Programmer Response: Probable 


user error, Correct any invalid 
delimiters. Supply the missing 
delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


THE STOP STATEMENT HAS A 
NON-INTEGER CONSTANT AFTER THE 
KEYWORD. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


constant following the keyword is 
a string of 1 to 5 decimal digits, 
inclusive, If the problem recurs, 
do the following before calling 
IBM for programming support: 


*¢ Have source and associated 
listing available. 


THE SUBROUTINE OR FUNCTION 
STATEMENT WAS NOT THE FIRST 
STATEMENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that no 


statements except comments occur 
prior to the SUBROUTINE or 
FUNCTION statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


QUOTE LITERALS MAY APPEAR ONLY IN 
CALL, DATA INITIALIZATION, 
FUNCTION AND FORMAT STATEMENTS. 


(condition code - 8) 


Programmer Response: Probable 
user error. Delete the invalid 


reference to the quote literals. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A VARIABLE WHICH 
HAS BEEN PREVIOUSLY DIMENSIONED. 
THE INITIAL DIMENSION FACTORS ARE 
USED. 


ITEK2031 


IEK2041 


IEK205I 


TEK2061 
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(Condition code - 4) 


Programmer Response: Probable 
user error. Delete the 


unnecessary or erroneous dimension 
specification. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e® Have source and associated 
listing available. 


AN ENTRY STATEMENT MUST NOT APPEAR 
IN A MAIN PROGRAM. THE STATEMENT 
IS IGNORED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete the ENTRY 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE STOP STATEMENT HAS AN INVALID 
DELIMITER. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Correct the invalid 


delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE ASSIGNED OR COMPUTED GO TO HAS 
AN INVALID ELEMENT FOLLOWING THE 
CLOSING PARENTHESIS. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid element. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A 
NON-SUBSCRIPTED ARRAY ITEM. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Correct the invalid 


array reference. If the problem 
recurs, do the following before 


calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE CONTINUE STATEMENT DOES NOT 
END AFTER THE KEY WORD CONTINUE. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Delete any code 
following the CONTINUE keyword. 
Make sure that a continuation has 
not been indicated on the 
statement immediately following 
the CONTINUE. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE CONTINUE STATEMENT DOES NOT 
HAVE A STATEMENT NUMBER. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Delete the CONTINUE 
statement if no related diagnostic 
appears with respect to undefined 
statement numbers. If there is an 
undefined statement number related 
to a label omission on the 
CONTINUE, then correct the 
CONTINUE statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS AN OCTAL 
CONSTANT SPECIFIED AS AN INITIAL 
VALUE. THE VALUE IS REPLACED BY 
ZERO. 


(Condition code - 4) 


Programmer Response: Probable 
user error. If the value of the 


octal constant is necessary, 
convert it to the appropriate 
hexadecimal equivalent. Verify 
that a leading “O" has not been 
inadvertently specified for a 
leading "0" in an initialization 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 
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ITEK2111 


IEK2121 


IEK2221 


ITEK2241 


IEK2251 
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THE STATEMENT HAS A COMPLEX 
CONSTANT WHOSE REAL CONSTANTS 
DIFFER IN LENGTH. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Correct the constant 


so that both parts are either 
REAL*4 or REAL*¥8,. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEK2261 


e Have source and associated 
listing available. 


THE BLOCK DATA SUBPROGRAM CONTAINS 
EXECUTABLE STATEMENT(S). THE 
EXECUTABLE STATEMENT(S) IS 
IGNORED. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Delete the executable 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEK2291 


*® Have source and associated 
listing available. 


THE EXPRESSION HAS A LITERAL WITH 
A MISSING DELIMITER. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Correct invalid 


delimiters or insert the missing 
delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE STATEMENT AFTER AN ARITHMETIC 
IF, GO TO, OR RETURN HAS NO LABEL. 1IEK302I 


(condition code - 4%) 


Programmer Response: Probable 
user error. Insert any necessary 


labels. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


A LABEL APPEARS ON A 
NON~EXECUTABLE STATEMENT. 
LABEL IS IGNORED. 


THE 


(Condition code - 4) 


Programmer Response: Probable 
user error. Delete the label. If 


the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A VARIABLE WITH 


MORE THAN SIX CHARACTERS. THE 
RIGHTMOST CHARACTERS ARE 
TRUNCATED. 

(Condition code - 4) 
Programmer Response: Probable 


user error. Delete extraneous 
characters, or insert any missing 
delimiter. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


ALL THE ARGUMENTS OF AN ARITHMETIC 
STATEMENT FUNCTION ARE NOT USED IN 
THE DEFINITION. 


(Condition code - 4) 


Programmer Response: Probable 
user error. If the definition is 


correct, then delete extraneous 
arguments. If arguments were 
omitted in the definition, then 
include them. Verify that the 
expression on the right contains 
as many distinct variables as 
there are distinct dummy 
arguments. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS 
EXTENDED COMMON BACKWARDS. 


(Condition code - 8) 


Programmer Response: Probable 


user error. Make sure that any 
implicit equivalencing or 
assignment statements involving 
arrays do not create an extension 
such that elements are added 
before the beginning of an 
established COMMON block. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


TEK3031 


ITEK304I 


ITEK305I 


IEK3061 
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e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT CONTAINS 
AN ARRAY WHICH IS NOT DIMENSIONED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Include the necessary 


subscript quantity for the array 
name. If the problem recurs, do 
the following before calling IBM 
for programming support: 

e Have source and associated TEK3071 
listing available. 


THE EQUIVALENCE STATEMENT HAS 
LINKED BLOCKS OF COMMON TOGETHER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that 


implicit equivalencing does not 
link COMMON blocks together. Use 
the MAP option to determine 
locations of variable names in the 
COMMON blocks in question. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 

e Have source and associated TEK3081 
listing available. 


e Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. 


THE EQUIVALENCE STATEMENT CONTAINS 
AN ARRAY WITH A SUBSCRIPT WHICH IS 
OUT OF RANGE. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Correct the invalid 


subscript. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


e Make sure that the XREF option 
is specified in the PARM 
parameter of the EXEC statement, 
and that the associated DD 
statement is included in the job 
stream. 


IEK3121 


THE EQUIVALENCE STATEMENT HAS AN 
INCONSISTENCY. 


(Condition code - 8) 
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Programmer Response: Probable 
user error. Make sure that the 


EQUIVALENCE statement does not 
contradict itself or any 
previously established 
equivalences. Verify that 
implicit equivalencing, if it 
occurs, does not create 
inconsistencies. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE DATA STATEMENT CONTAINS A 
VARIABLE THAT IS NOT REFERENCED. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Make sure that the 


indicated variable has not 
inadvertently been omitted from a 
program unit. If not, delete the 
variable from the DATA statement. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS 
EQUIVALENCED TWO VARIABLES IN THE 
SAME COMMON BLOCK. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that source 


is correct. If necessary and if 
possible, replace one of the 
invalid variables with a variable 
not in COMMON. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


e Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. 


THE EQUIVALENCE STATEMENT CONTAINS 
AN EXTERNAL REFERENCE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct the 


invalid externally referenced name 
in the EQUIVALENCE group. If the 
problem recurs, do the following 
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TEK315I1 
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before calling IBM for programming 
support: 


* Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT MAY 
CAUSE WORD BOUNDARY ERRORS. 

TEK3181 
(Condition code - 4) 


Programmer Response: Probable 
user error. Arrange variables in 
fixed descending order according 
to length, or force proper 
alignment with dummy variables. 
Construct the group so that the 
displacement of each variable in 
the group can be evenly divided by 
the reference number associated 
with the variable. Use the MAP 
option for information on 
variables and relative addresses. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 

* Have source and associated TEK3191I 
listing available. 


® Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. 


THE EQUIVALENCE STATEMENT WILL 
CAUSE WORD BOUNDARY ERRORS. 


(Condition code - 4) 


Programmer Response: Probable 
user error. Arrange variable in 


fixed descending order according 
to length or force proper 
alignment with dummy variables. 
Construct the group so that the 
displacement of each variable in 
the group can be evenly divided by 
the reference number associated 
with the variable. Use the MAP 
option for information on 
variables and relative addresses. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


TEK3201 


e Have source and associated 
listing available. 


THE BLOCK DATA PROGRAM DOES NOT 
CONTAIN A COMMON STATEMENT. 

IEK3221 
(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that all 


elements of a COMMON block in any 
main program or subprogram are 
listed in a COMMON statement in 


by TNL: GN28-0591 


the BLOCK DATA subprogram. If the 
problem recurs, do the following 
before calling IBM for progamming 
support: 


® Have source and associated 
listing available. 


THE DATA STATEMENT IS USED TO 
ENTER DATA INTO COMMON OUTSIDE A 
BLOCK DATA SUBPROGRAM. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete the invalid 


reference to the variable in 
COMMON. Include the reference in 
a BLOCK DATA subprogram or in an 
assignment statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


DATA IS ENTERED INTO A LOCAL 
VARIABLE IN A BLOCK DATA PROGRAM. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


variable appears in COMMON. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


® Have source and associated 
listing available. 


DATA MAY NOT BE ENTERED INTO A 
VARIABLE WHICH HAS BEEN PASSED AS 
AN ARGUMENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete any dummy 


arguments that appear in the data 
initialization list. Make sure 
source is correct. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE COMMON STATEMENT MAY CAUSE 
WORD BOUNDARY ERRORS. 


(Condition code — 4) 


Programmer Response: Probable 
user error. Arrange variables in 


fixed descending order according 


IEK3 231 


TEK3 321 


TEK3341 
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to length, or force proper 
alignment with dummy variables. 
Construct the block so that the 
displacement of each variable can 
be evenly divided by the reference 
number associated with the 
variable. Use the MAP option for 
information on the relative 
address of each variable in the 
block. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e® Have source and associated 
listing available. 
IEK3501 
e Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. 


THE COMMON STATEMENT WILL CAUSE A 
WORD BOUNDARY ERROR. 


(Condition code ~ 4) 


Programmer Response: Probable 
user error. Arrange variable in 
fixed descending order according 
to length, or force proper 
alignment with dummy variables. 
Construct the block so that the 
displacement of each variable can 
be evenly divided by the reference 
number associated with the 
variable. Use the MAP option for 
information on the relative 
address of each variable in the 
block. If the problem recurs, do 
the following before calling IBM 
for programming support: 


TEK3511 


e Have source and associated 
listing available. 


e Make sure that the MAP option is 
specified in the PARM field of 
the EXEC statement. 


THE STATEMENT NUMBER IS UNDEFINED. 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct the source so 


that a valid statement number is 
referenced. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE COMMON STATEMENT HAS A 
VARIABLE WITH A VARIABLE 
DIMENSION. 
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(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that a 


subscript quantity contains only 1 
through 7 unsigned integer 
constants separated by commas. 
the problem recurs, do the 
following before calling IBM for 
programming support: 


If 


e Have source and associated 
listing available. 


THE DATA STATEMENT HAS A MISSING 
PARENTHESIS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct any invalid 


delimiters and insert the 
appropriate parenthesis. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE DATA INITIALIZATION VALUE IS 
LARGER THAN THE VARIABLE OR ARRAY 
ELEMENT - TRUNCATION OR SPILL WILL 
OCCUR. 


(Condition code - 4) 


Explanation: An array or variable 
was initialized with a constant 
whose length was greater than the 
length of an array element. If 
the constant was specified as the 
first element in a non-subscripted 
array, part of the constant will 
spill over into the succeeding 
array element(s). If the constant 
was specified as other than the 
first element in a non-subscripted 
array, Or if it was specified as 
any element in a subscripted 
array, the constant will be 
truncated. 


Programmer Response: Probable 
user error. If spill is not 


desired, make sure that the length 
of a constant specified does not 
exceed the length of the element. 
If truncation is not desired, make 
sure that the length of any 
constant specified as a subsequent 
element in the array does not 
exceed the element length. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 
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IEK3531 


IEK354I1 


IEK3551 
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e Have source and associated 
listing available. 


THE DATA STATEMENT HAS TOO MANY 
INITIALIZATION VALUES. 


(condition code - 4) 


Programmer Response: Probable 
user error. Make sure that a 


one-to-one correspondence exists 
between the total number of 
elements specified or implied in 
the data list and the total number 
of constants specified by the 
corresponding list embedded in 
slashes. If the problem recurs, 
do the following before calling 
IBM for programming support: 


IEK3561 


°® Have source and associated 
listing available. 


THE DIMENSION STATEMENT HAS A 
VARIABLE WHICH HAS A SUBSCRIPT OF 
REAL MODE. 
IEK3571 
(Condition code - 8) 


Programmer Response: Probable 
user error. Verify that all 


subscripts are integer. Make sure 
that only a combination of integer 
and real mixed mode expressions 
occurs, if mixed mode is present. 
Check that no subscript rules are 
violated. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. TEK3581 

A VARIABLE TO BE DIMENSIONED USING 

ADJUSTABLE DIMENSIONS MUST HAVE 

BEEN PASSED AS AN ARGUMENT AND 

MUST NOT APPEAR IN COMMON. 


(Condition code - 8) 


Programmer Response: Probable 
user error. If the variable has 


not been entered in a COMMON 
statement, remove it. If the 
variable is not already in the 
argument list, place it there. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


ADCON TABLE EXCEEDED. 


(Condition code - 16) 


Programmer Response: Probable 
user error. Restructure any 


complex statement into less 
involved statements. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


© Have source and associated 
listing available. 


A PARAMETER CANNOT ALSO BE IN 
COMMON, 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct the source 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE ARRAY HAS AN INCORRECT 
ADJUSTABLE DIMENSION. 


(condiiton code ~- 8) 


Programmer Response: Probable 
user error. Correct invalid 
adjustable dimension. If the 


problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE ADJUSTABLE DIMENSION IS NOT 
PASSED AS AN ARGUMENT OR IN 
COMMON. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Either include the 


adjustable dimension in an 
argument list, or place it in 
COMMON. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


® Make sure that the XREF option 
is specified in the PARM field 
and that the associated DD 
statement is included in the job 
stream. 


TEK4021 


TEK403I 


TEK404L 


ITEK410L 
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OPEN ERROR ON ddname 


Explanation: The data set corres- 
ponding to the ddname cannot be 
opened. If either the EDIT or the 
XREF option has been requested, 
the corresponding SYSUT1 or SYSUT2 
DD card has not been found. 


(Condition code - 16) 


Programmer Response: Probable 
user error. Make sure that 


appropriate DD cards are included 
in correct sequence with necessary 
keyword and/or positional 
parameters. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
IEK5001 

e Make sure that MSGLEVEL=(1,1) 

was specified in the JOB 

statement. 


® Have source and associated 
listing available. 


OPEN ERROR ON SYSPRINT 


(Condition code - 16) 


Programmer Response: Probable 
user error. Check the SYSPRINT DD 


statement and recompile. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Make sure that MSGLEVEL= (1,1) 
was specified in the JOB 
statement. IEK501I 

e Have source and associated 
listing available. 


SYNCHRONOUS ERROR ON SYSPRINT 


(Condition code ~- 16) 


Programmer Response: Probable 
user error. Check the SYSPRINT DD 


statement and recompile. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MSGLEVEL=(1,1) 
was specified in the JOB 
statement. 


TEK5021 


e Have source and associated 
listing available. 


AN INVALID SIZE PARAMETER HAS BEEN 
SPECIFIED. IT WILL BE IGNORED. 


(Condition code —- 4) 
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Programmer Response: Probable 
user error. Correct the SIZE 


parameter. Make sure that it is 
specified within the allowable 
range, and that the size of the 
region or partition in which the 
compiler is running is at least 
10K larger than the specified SIZE 
value. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Make sure that MSGLEVEL=(1,1) 
was specified in the JOB 
statement. 


e Have source and associated 
listing available. 


AN ARGUMENT TO A FORTRAN SUPPLIED 
FUNCTION IS OF THE WRONG TYPE. 

THE FUNCTION IS ASSUMED TO BE USER 
DEFINED. 


(Condition code - 4) 


Programmer Response: Probable 
user error. If the function is 


user-suppied, make sure the 
function name appears in an 
EXTERNAL statement. Make sure 
that an argument mode is correct. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


® Have source and associated 
listing available. 


THE EXPRESSION HAS A COMPLEX 
EXPONENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the exponent 


so that it is integral with a 
complex base, and otherwise 
integral or real. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A BASE WHICH IS 
COMPLEX BUT THE EXPONENT IS 
NON-INTEGER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


expression so that a complex base 
has an integer exponent. If the 
problem recurs, do the following 
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IEK5O41 


TEK5051 


TEK5SO06I 
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before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


A NON-SUBSCRIPTED ARRAY ITEM 
APPEARS IMPROPERLY WITHIN A 
FUNCTION REFERENCE OR A CALL. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


array item following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE BASE AND/OR EXPONENT IS A 
LOGICAL VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that base 


and/or exponent are only of type 
real, integer, or complex. Check 
placement of parentheses. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e® Have source and associated 
listing available. 


THE INPUT/OUTPUT STATEMENT REFERS 
TO THE STATEMENT NUMBER OF A 
NON-FORMAT STATEMENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 
statement number. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THERE IS A MISSING OPERAND 
PRECEEDING A RIGHT PARENTHESIS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the statement 
and resubmit the job. If the 


problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


IEK5071 


ITEK5081 


TEKS 091 


IEK5101I 


IEK5121 


A NON-SUBSCRIPTED ARRAY ITEM IS 
USED AS AN ARGUMENT TO AN IN-LINE 
FUNCTION. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the array 


item. If the problem recurs, do 
the following before calling IBM 
for programming support: 


® Have source and associated 
listing available. 


THE NUMBER OF ARGUMENTS TO AN 
IN-LINE FUNCTION IS INCORRECT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that 


necessary delimiters are 
indicated. Correct or delete 
items in the argument list. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE PROGRAM DOES NOT END WITH A 
STOP, RETURN, OR GO TO. 


(condition code ~ 4) 


Programmer Response: Probable 
user error. Insert the necessary 
terminal statement. If the 


problem recurs, do the following 
before calling IBM for programmer 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A LOGICAL 
OPERATOR WITH A NON-LOGICAL 
OPERAND. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the operand. 


Make sure that a logical primary 
or logical expressions have 
correct form. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE LOGICAL IF DOES NOT CONTAIN A 
LOGICAL EXPRESSION. 


IEK5151 


IEK5161I 


IEK5201 


IEK5211 
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(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


*® Have source and associated 
listing available. IEK5221 

THE EXPRESSION HAS A RELATIONAL 

OPERATOR WITH A COMPLEX OPERAND. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


complex operand. Equivalence a 
real array of two elements to a 
complex variable to permit use of 
the relational operator, if 
necessary. If the problem recurs, 
do the following before calling 
IBM for programming support: 

e Have source and associated IEK5231 
listing available. 


THE ARITHMETIC IF CONTAINS A 
COMPLEX EXPRESSION. 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct the 
expression. Convert the 
expression, if possible, toa 
permissible type. If the problem 
recurs, do the following before 
calling IBM for programming 
support: TEK5241 
e Have source and associated 

listing available. 


THERE IS A COMMA IN AN INVALID 
POSITION. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete or reposition 


the comma. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. TEK5251 

THE EXPRESSION HAS AT LEAST ONE 

EXTRA RIGHT PARENTHESIS. 


(condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct 


extraneous and invalid 
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parentheses. Make sure 
parentheses are balanced. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS AT LEAST ONE 
TOO FEW RIGHT PARENTHESES. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or add needed 


parentheses. Make sure 
parentheses are balanced. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


°® Have source and associated 
listing available. 


THE EQUAL SIGN IS IMPROPERLY USED. 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid equal sign. If the 


problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS AN OPERATOR 
MISSING AFTER A RIGHT PARENTHESIS. 


(condition code - 8) 


Programmer Response: Probable 
user error. Insert the missing 


operator or delete the erroneous 
parenthesis. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION USES A LOGICAL OR 
RELATIONAL OPERATOR INCORRECTLY. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Either correct the 


logical or relational operator, or 
change invalid operand 
expressions. Make sure operators 
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are preceded and followed by a 
period. Verify that expressions 
precede operators where required. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


A FUNCTION NAME APPEARING AS AN 
ARGUMENT HAS NOT BEEN DECLARED 
EXTERNAL. 


TEK5421 


(condition code - 8) 


Programmer Response: Probable 
user error. Insert the required 
EXTERNAL statement, or delete or 
correct the invalid function 
reference, If the problem recurs, 
do the following before calling 
IBM for programming support: 





°* Have source and associated 
listing available. 


THE EXPRESSION HAS A VARIABLE WITH 
AN IMPROPER NUMBER OF SUBSCRIPTS. TEK5501 


(Condition code ~ 8) 


Programmer Response: Probable 
user error. Check for all 
necessary delimiters. Make sure 
that there are as many subscripts 
as are declared in the associated 
specification statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 





e Have source and associated 
listing available. 


THE EXPRESSION HAS A STATEMENT 
FUNCTION REFERENCE WITH AN 
IMPROPER NUMBER OF ARGUMENTS. 


(condition code —- 8) 


Programmer Response: Probable TEK5521 
user error. Correct the invalid 

function reference. If the 

problem recurs, do the following 

before calling IBM for programming 


support: 


e Have source and associated 
listing available. 


AN ARGUMENT TO A LIBRARY FUNCTION 
HAS AN INVALID TYPE. 


(Condition code - 8) 


Programmer Response: Probable 
user error, Corrrect the invalid 
argument. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


A LOGICAL EXPRESSION APPEARS IN 
INVALID CONTEXT. 


{Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


source statement. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e® Have source and associated 
listing available. 


PUSHDOWN, ADCON, 
TABLE EXCEEDED. 


OR ASF ARGUMENT 


(Condition code - 16) 


Programmer Response: Probable 
user error. Change the program 
structure. If there are many 
subroutine references in a program 
unit, subdivide the program unit. 
Restructure deeply nested 
expressions or eliminate some ASF 
arguments where many occur, if 
possible. Where parentheses are 
deeply nested, restructure the 
source statement, if possible, to 
eliminate some of the nesting. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


SOURCE PROGRAM IS TOO LARGE. 


(Condition code - 16) 


Programming Response: Probable 
user error. Subdivide the program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


IEK5701 


IEK5801 


IEK600T 
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TABLE EXCEEDED. 
DOWNGRADED. 


OPTIMIZATION IEK6101 


(condition code - 0) 


Explanation: Probable user error. 
The program is too large to permit 
optimization. This is a warning 
message and appears in the source 
listing at the point where the 
table (RMAJOR) overflows. The 
compiler performs OPT=1 register 
allocation only; no other 
optimization is performed. 


Programmer Response: Probable 
user error. Either the program 


should be segmented or the size of 
the table RMAJOR should be 
increased. RMAJOR may be 
increased by increasing the size 
of the compiler at system 
generation time. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

e Have source and associated ITEK6 201 
listing available. 


COMPILER ERROR. 
(Condition code - 16) 


Explanation: One of the following 
four conditions occurred: an 
invalid adjective code was 
detected; an illegal element 
length was detected; no 
equivalence group was found; an 
unusual primary adjective code was 
detected. 


Programmer Response: Probable 
user error. Make sure that the 


source program is correct. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 
TEK6301 
INTERNAL COMPILER ERROR. 
LOGICALLY IMPOSSIBLE BRANCH TAKEN 
IN A COMPILER SUBROUTINE. 


(condition code - 16) 
Programmer Response: Probable 
user error. Make sure that the 


source code is correct. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


°e Have source and associated 
listing available. 
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THE STATEMENT NUMBER OR GENERATED 
LABEL IS UNREACHABLE. 


(Condition code - 4) 
Note: This message is generated 


only if OPT=2 is specified in the 
EXEC statement. 





Programmer Response: Probable 
user error. Make sure that 


control statements indicate 
correct branch targets. Verify 
that an unlabeled STOP, RETURN, or 
GO TO does not immediately follow 
any one of these same three source 
statements. Make sure that the 
statement following an arithmetic 
IF is labeled. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT NUMBER OR GENERATED 
LABEL IS A MEMBER OF AN 
UNREACHABLE LOOP. 


(Condition code - 4) 
Note: This message is generated 


only if OPT=2 is specified in the 
EXEC statement. 





Programmer Response: Probable 
user error. Make sure that 


control statements indicate 
correct branch targets. Correct 
labels so that the loop may be the 
target of a branch. Delete 
invalid terminal source 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


INTERNAL TOPOLOGICAL ANALYSIS 
TABLE EXCEEDED. 


(Condition code - 16) 


Programmer Response: Probable 
user error. Insert statement 


numbers where a large span of 
source code exists without 
statement numbers. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 
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LOAD MODULE EXECUTION DIAGNOSTIC MESSAGES 


The load module produces three types of 
diagnostic messages: 


e Program interrupt messages 
® Execution error messages 
® Operator message 


Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are 
written when an exception occurs. The 
format of the program interrupt message 
when the extended error message facility 
has not been specified at system generation 
time is given in Figure 100. Program 
interrupt messages IHC207I, IHC208I, and 
IHC209I are produced only when the extended 
error message facility has been specified. 
The format of these messages can be found 
in the section "Execution Error Messages." 


Note: Codes 4, 5, 6, and 7 are associated 
with the execution-time adjustment of 
boundary alignment errors and appear only 
when the system is generated to provide 
boundary alignment adjustment; i.e., when 
BOUNDRY=ALIGN is specified in the FORTLIB 
macro instruction during system generation 
(see the System Generation publication). 


The letter A in the message indicates 
that boundary adjustment has taken 
place.The letter P in the message indicates 
that the interruption was precise. This 
will always be the case for 
non-specification interrupt messages in 
FORTRAN except when using machines with 
special] hardware on which imprecise 
interruptions may occur. The eighth 
character in the PSW (i.s@., 4, 5, 6y Ty 9, 
Cc, D, or F) represents the code number (in 
hexadecimal) associated with the type of 
interruption. The following text describes 
these interruptions. 


Protection Exception: The protection 
exception (code 4), is recognized when the 
key of an operand in storage does not match 
the protection key in the PSW. A message 
is issued only if a specification exception 
(code 6) has already been recognized in the 
same instruction. Otherwise, the job 
terminates abnormally. 


If the extended error message facility 
is specified, the following information is 
provided. 


IBCOM — PROGRAM INTERRUPT - ALIGNMENT OLD 
PSW IS xxxxxxx4xxxxxxxx 


184.14 


Supplemental Data: None. 


Standard Corrective Action: Continue 
execution at point of interrupt. 





Programmer Response: Probable user error. 
If the job has been terminated with a 
completion code of SYSTEM=0C6 
(specification interrupt), correct the 
source causing boundary misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


e Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
statement and provide the necessary 
GO.SYSUDUMP or GO.SYSABEND DD statement. 


e Make sure that the XREF option is 
specified in the PARM field of the EXEC 
statement and that the necessary DD 
statement is included. 


e Have source and associated listing 
available. 


Addressing Exception: The addressing 
exception (code 5) is recognized when the 


address of the data is outside of the 
available storage for the particular 
installation. A message is issued only if 
a specification exception (code 6) has 
already been recognized in the same 
instruction. Otherwise, the job terminates 
abnormally. 


If the extended error message facility 
is specified, the following information is 
provided. 


IBCOM ~- PROGRAM INTERRUPT ~- ALIGNMENT OLD 
PSW IS xxxxxxx5xxxxXXXxxx 


Supplemental Data: None. 
Standard Corrective Action: Continue 
execution at point of interrupt. 


Programmer Response: Probable user error. 
If the job has been terminated with a 
completion code of SYSTEM=0C6 
(specification interrupt), correct the 
source cauSing boundary misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


e Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
statement and provide the necessary 
GO. SYSUDUMP or GO.SYSABEND DD statement. 


e Make sure that the XREF option is 
specified in the PARM field of the EXEC 
statement and that the necessary DD 
statement is included. 


e Have source and associated listing 
available. 


Page of GC28-6817-2, Revised 12/30/70, by TNL: GN28-0591 


(P) 


Figure 100. 


Specification Exception: The specification 
exception (code 6) is recognized when a 
data address does not specify an integral 
boundary for that unit of information. For 
example, a specification error would occur 
during execution of the following 
instructions. 


REAL*8 D, E 
COMMON A, B, C 
EQUIVALENCE (B, D) 
D = 3.0D02 


Note: If an instruction contains a 
boundary violation, a specification 
interrupt occurs and the message is issued 
with code 6. The boundary adjustment 
routine is invoked if the BOUNDRY=ALIGN 
option was specified in the FORTLIB macro 
instruction during system generation. If 
an instruction which has been processed for 
a boundary violation also contains a 
protection, addressing, or data error, the 
interrupt message is reissued with the 
appropriate code (4, 5, or 7). The job 
then terminates because both a 
specification error and a protection, 
addressing, or data error have been 
detected. The completion code in the dump 
indicates that the job terminated because 
of the specification error. 


If the extended error message facility 
is specified, the following information is 
provided. 


IBCOM - PROGRAM INTERRUPT - ALIGNMENT OLD 
PSW IS xxxxxxx6xxxxxxxx 


Supplemental Data: None. 
Standard Corrective Action: Continue 
execution at point of interrupt. 


Programmer Response: Probable user 

error. Make sure that proper alignment of 
variables is guaranteed. Arrange variables 
in fixed descending order according to 
length, or force proper alignment with 
dummy variables. Construct COMMON blocks 
so that the displacement of each variable 
can be evenly divided by the reference 
number associated with the variable. Use 
the MAP option for information on the 
relative address of each variable in the 


IHC210I PROGRAM eae OLD PSW IS xxxxxxx 


XXXXXXXX 


Program Interrupt Message Format Without Extended Error Message Facility 


block. Make sure that EQUIVALENCE 
statements do not cause misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


e Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
statement and provide the necessary 
GO. SYSUDUMP or GO.SYSABEND DD statement. 


e Make sure that the XREF option is 
specified in the PARM field of the EXEC 
statement and that the necessary DD 
statement is included. 


® Have source and associated listing 
available. 


Data_Exception: The data exception (code 
7), is recognized when the sign and digit 
codes for a CONVERT TO BINARY instruction 
are incorrect. A message is issued only if 
a specification exception (code 6) has 
already been recognized in the same 
instruction. Otherwise, the job terminates 
abnormally. 


If the extended error message facility 
is specified, the following information is 
provided. 


IBCOM - PROGRAM INTERRUPT - ALIGNMENT OLD 
PSW IS xxxxxxx7 xxxxxxxxX 


Supplemental Data: None. 
Standard Corrective Action: Continue 
execution at point of interrupt. 


Programmer Response: Probable user error. 
If the job has been terminated with a 
completion code of SYSTEM=0C6 
(specification interrupt), correct the 
source causing boundary misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


® Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
statement and provide the necessary 
GO.SYSUDUMP or GO.SYSABEND DD statement. 


® Make sure that the XREF option is 
specified in the PARM field of the EXEC 


Appendix D: System Diagnostics 184.15 


Page of GC28-6817-2, 


statement and that the necessary DD 
statement is included. 


® Have source and associated listing 
available. 


Fixed-Point-Divide Exception: The 
fixed-point-divide exception, assigned code 
number 9, is recognized when division of a 
fixed-point number by zero is attempted. A 
fixed-point divide exception will occur 
during execution of the following 
statement: 


K=I/d 
where: I=7 and J=0 
Note: When dealing with large numbers, the 


programmer should be aware that fixed-point 
overflow does not cause an interrupt and 
any overflow causes incorrect results. No 
error message is issued. 


Exponent—Overflow Exception: The 
exponent-overflow exception, assigned code 
number C, is recognized when the result of 
a floating-point addition, subtraction, 
multiplication, or division is greater than 
or equal to 1663 (approximately 7.2 x 
1075). For example, an exponent-overflow 
will occur during execution of the 
statement: 


A = 1.0E+75 + 7,2E+75 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction is normalized and whose sign 
is correct. However, the number is not 
usable for further computation since its 
characteristic field no longer reflects the 
true exponent. The content of the result 
register as it existed when the interrupt 
occurred is printed following the program 
interrupt message with the format: 


REGISTER CONTAINED hhhhhhhhhhhhhhhh 


hhhhhhhhhhhhhhhh is the 
floating-point number in 
hexadecimal notation. 


where: 


If the improved floating-point 
engineering change is not in effect, the 
register content cannot be used to 
caiculate the true value. 
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If the improved floating-point 
engineering change is in effect, exponent 
overflow causes "exponent wraparound" - 
i.ee., the characteristic field represents 
an exponent that is 128 smaller than the 
correct one. Treating bits 1 to 7 (the 
exponent characteristic field) of the 
floating-point number as a binary integer, 
the true exponent may be computed as 
follows: 


TE = (Bits 1 to 7) + 128 - 64 


Before program execution continues, the 
FORTRAN library sets the result register to 
the largest possible floating-point number 
that can be represented in short precision 
(1663+ (1-16-6)) or in long precision 
(1663%#(1-16-14)), but the sign of the 
result is not changed. The condition code 
is not altered. 


Exponent-—Underflow_ Exception: The 
exponent-underflow exception, assigned code 


number D, is recognized when the result of 
a floating-point addition, subtraction, 
multiplication, or division is less than 
16-65 (approximately 5.4x10-79),. For 
example, an exponent-underflow exception 
will occur during execution of the 
statement: 


A = 1.0E-50 * 1.05£-50 


Although exponent underflows are 
maskable, FORTRAN jobs are executed without 
the mask so that the library will handle 
such interrupts. 


When the interrupt occurs, the result 
register contains a floating-point number 
whose fraction is normalized and whose sign 
is correct. However, the number is not 
usable for further computation since its 
characteristic field no longer reflects the 
true exponent. The content of the result 
register as it existed when the interrupt 
occurred is printed following the program 
interrupt message with the format: 


REGISTER CONTAINED hhhhhhbhhhhbhhhhhh 
hhhhhhhhhhhhhhhh is the 


floating-point number in 
hexadecimal notation. 


where: 


If the improved floating-point 
engineering change is not in effect, the 
exponent underflow always leaves a zero in 
the result register. 


If the improved floating-point 
engineering change is in effect, exponent 
underflow causes "exponent wraparound” - 
i.e., the characteristic field represents 
an exponent that is 128 larger than the 
correct one. Treating bits 1 to 7 (the 
exponent characteristic field) of the 
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floating-point number as a binary integer, 
the true exponent may be computed as 
follows: 


TE = (Bits 1 to 7) - 128 - 64 


Before program execution continues, the 
library sets the result register to a true 
zero of correct precision. If the 
interrupt resulted from a floating-point 
addition or subtraction operation, the 
condition code is set to zero to reflect 
the setting of the result register. 


Note: The System/360 Operating System 
FORTRAN programmer who wishes to take 
advantage of the "exponent wraparound" 
feature and handle the interrupt in his own 
program must call an assembly language 
subroutine to issue a SPIE macro 
instruction that will override the FORTRAN 
interruption routine. 


Floating-Point-Divide Exception: The 
floating-point-divide exception, assigned 
code number F, is recognized when division 
of a floating-point number by zero is 
attempted. For example, a floating-point 
divide exception will occur during 
execution of the following statements: 


C=A/B 


where: A=1.0 and B=0.0 


Execution Error Messages 


Execution error messages have the form: 


IHCxxxI {message text] 
TRACEBACK FOLLOWS-ROUTINE ISN REG. 14, 
REG. 15, REG. 0, REG 1 


The facility for error detection and 
diagnostic messages is controlled by a 
system generation option. When the 
parameter OPTERR=INCLUDE is specified in 
the FORTLIB macro instruction at system 
generation time, the extended error 
handling facility is made available during 
program execution. This facility is not 
made available if OPTERR=EXCLUDE is 
specified or if no parameter is specified 
at system generation time. 


The description of each diagnostic 
message contains the error code, the 
abbreviated name for the origin of the 
error, and an explanation describing the 
type of error. In addition, supplemental 
data is provided and standard corrective 
action to be taken to correct the error is 
described. Supplementary data and standard 
corrective action are applicable only if 
OPTERR=INCLUDE was specified. 
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Variable information in the message is 
shown as X, and in the corrective action 
descriptions, * denotes the largest 
possible number that can be represented in 
floating point. For all load module 
execution error messages except IHC210I, a 
condition code of 16 is generated and the 
job step is terminated unless the 
OPTERR=INCLUDE parameter was specified. 


The abbreviated name for the origin of 
the error is: 


IBC - IHCFCOMH routine (performs 
interruption, and error procedures). 


FIOCS - IHCFIOSH routine (performs I/0 
operations for FORTRAN load module 
execution). 


NAMEL - IHCNAMEL routine (performs 
namelist processing). 


DIOCS - IHCDIOSE routine (performs 
direct access I/O operations for FORTRAN 
load module execution). 


IBERR - IHCIBERH routine (performs the 
processing of errors detected during 
execution of the load modules.) 


LIB - SYS1.FORTLIB. In the explanation 
of the messages, the module name is 
given followed by the entry point 
name(s) enclosed in parentheses. 


FCVTH - IHCFCVTH routine (performs 
conversions). 


Note: Message IHC210I is a program 
interrupt message. For a description, see 
Figure 100 and the section "Program 
Interrupt Messages." 

IHC207I IBCOM - PROGRAM INTERRUPT-OVERFLOW 
OLD PSW IS xxxxxxxCxxxXxxxx 
REGISTER CONTAINED X 


This message is produced only when 
the extended error message 
facility is specified. 


Supplemental Data: The floating- 
point number before alteration. 


Standard Corrective Action: 
Continue execution at point of 
interrupt with result register set 
to the largest possible , 
floating-point number that can be 
represented in short precision 
(1663%#(1-16-6)) or in long 
precision (1669*(1-1671%4)). 


Programmer Response: Probable 
user error. Make sure that a 


variable or variable expression 
does not exceed the allowable 
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magnitude. Verify that all IHC 2091 
variables have been initialized 

correctly in previous source 

statements, and have not been 

inadvertently modified in 

intermediate source. If the 

problem recurs, do the following 

before calling IBM for programming 

support. 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and the 
necessary DD statement is 
included. 


e Have source and associated 
listing available. 


IBCOM — PROGRAM 
INTERRUPT-UNDERFLOW UNDERFLOW OLD 
PSW IS xxxxxxxDxxxxxxxx REGISTER 
CONTAINED X 


This message is produced only when 
the extended error message 
facility is specified. 


Supplemental Data: The floating- 
point number before alteration. 


Standard Corrective Action: 
Continue execution at point of 
interrupt with result register set 
to a true zero of correct 
precision. 


THC2111 


Programmer Response: Probable 
user error. Make sure that a 


variable or variable expression is 
not smaller than the allowable 
magnitude. Verify that all 
variables have been initialized 
correctly in previous source 
statements and have not been 
inadvertently modified in 
intermediate source. If the 
problem recurs, do the following 
before calling IBM for programming 
support. 


« Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 
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IBCOM - PROGRAM INTERRUPT-DIVIDE 
CHECK OLD PSW IS 
XXXXXXxX (9 | xxxxxXxXxX 


1F 
This message is produced only when 


the extended error message 
facility is specified. 


Supplemental Data: None. 

Standard Corrective Action: Leave 
register unmodified. 

Programmer Response: Probable 


user error. Either correct the 
source where division by zero is 
occurring, ox modify previous 
source statements to test for the 
possibilities or bypass the 
illegal division. If the problem 
recurs, do the following before 
calling IBM for programming 
support. 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


Explanation: IBC -~ An invalid 
character has been detected in a 
FORMAT statement. 


If the extended error message 
facility is specified, the 
following information is provided: 


IBCOM ~ ILLEGAL COMPILED FORMAT 
CHARACTER SPECIFIED 

or 

IBCOM - ILLEGAL VARIABLE FORMAT 
CHARACTER SPECIFIED X 
Supplemental Data: Character in 
error. 


Standard Corrective Action: 
Format field treated as an end of 
format. 


Programmer Response: Probable 
user error. Make sure that all 


format specifications read in at 
object time are valid. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 





THC212I 
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e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


* Have source and associated 
listing available. 


Explanation: IBC -- An attempt 
has been made to read or write a 
record, under FORMAT control, that 
exceeds the buffer length. 


If the extended error message 
facility is specified, the 
following information is provided: 


IBCOM - FORMATTED I/0, 
RECORD ON UNIT X 


END OF 


Supplemental Data: Unit number. 


Standard Corrective Action: For a 
read, ignore remainder of I/0 
list; for a write, start new 


record with no control character. 


Programmer Response: Probable 
user error. If the error occurs 


on input, verify that a FORMAT 
statement does not define a 
FORTRAN record longer than the 
record referred to in the data 
set. If reading in data, either 
keep a counter to avoid exceeding 
end of record or file, or insert 
an END= parameter or on the READ 
statement for appropriate transfer 
of control on end of data set. No 
record to be punched should be 
specified as longer than 80 
characters. For printed output 
make sure that no specification is 
longer than the printer's line 
length. Check all DD statements. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


THC2141 


e Make sure that MSGLEVEL=(1, 1) 
was specified on the JOB 
statement. 


® Have source and associated 
listing available. 


« Make sure that LIST has been 
specified as a parameter on the 
EXEC statement. 


Explanation: IBC -- The input 
list in an I/O statement without a 
FORMAT specification is larger 
than the logical record. 
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If the extended error message 
facility is specified, the 
following information is provided: 
IBCOM - UNFORMATTED READ, END OF 
RECORD ON UNIT X 


Supplemental Data: Unit number. 
Standard Corrective Action: 
Ignore remainder of I/O list. 


Programmer Response: Probabie 
user error. Either keep a counter 


to avoid exceeding end of record 
or file, or insert an END= 
parameter on the READ statement 
for appropriate transfer of 
control on end of data set. Check 
all DD statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


e Make sure that LIST has been 
specified as a parameter on the 
EXEC statement. 


Explanation: FIOCS -- For 
unformatted records read or 
written in sequentially organized 
data sets, the record format 
(RECFM) specification must include 
the characters VS (variable 
spanned); any of the optional 
characters (B, A, M, or T) may be 
specified with the characters VS. 
This message appears if the 
programmer has coded RECFM=V, 
RECFM=U, or RECFM=F. 


If the extended error message 
facility is specified, the 
following information is provided: 


FIOCS ~ UNFORMATTED I/0, RECORD 
FORMAT SPECIFIED AS F OR U ON UNIT 
x 

Supplemental Data: Unit number. 
Standard Corrective Action: 


read, ignore I/O request; for 
write, change record form to V. 


For 


Programmer Response: Probable 
user error. Correct the RECFM 


subparameter. Change a V 
(variable) or U (undefined) or F 
(fixed) specification to VS. Or, 


System Diagnostics 184.19 


Page of GC28-6817-2, Revised 12/30/70, by TNL: GN28-0591 


IHC2151 


IHC 2161 
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on a WRITE only, change the record 
format to V. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing and the associated job 
stream available. 


e® Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


CONVERT - ILLEGAL DECIMAL 
CHARACTER X 


Explanation: An invalid character 
exists for the decimal input 
corresponding to an I, E, F, or D 
format code. 


Supplemental Data: Display the 
record in which character 
appeared. 


Standard Corrective Action: Zero 


replaces the character IHC2171 
encountered. 
Note: If the standard or 


corrective user action results in 
a null format, no output will 
result. If the FORMAT statement 
is terminated in such a way that 
no conversion type is called for, 
an alpha- 

numeric literal may be repeated 
for each list item. 


Programmer Response: Probable 
user error. If an IHC214I message 
has occurred previously, correct 
the source causing the error. 
Otherwise, make sure that all 
decimal input is valid. Correct 
any FORMAT statements specifying 
decimal input where character 
should be indicated. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 
e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Have source and associated 
listing available. 


SLITE-SLITET X IS AN ILLEGAL VALUE 


Explanation: LIB -- An invalid 
sense light number was detected in 


the argument list in a call to the 
SLITE or SLITET subroutine. 


Supplemental Data: The sense 
light value supplied. 
Standard Corrective Action: For 
SLITE, no action; for SLITET, 
return OFF indication, i.-e., J=2. 


Programmer Response: Probable 
user error. If CALL SLITE(i) is 
specified make sure that i is an 
integer expression with a value of 
0-4, inclusive. If CALL 
SLITET(i,j) is specified, make 
sure that i is an integer 
expression with a value of 0-4, 
inclusive, and j is an integer 
variable. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


Explanation: IBC -- An end of 
data set was sensed during a READ 
operation; that is, a program 
attempted to read beyond the data. 


If the extended error message 
facility is specified, the 
following infformation is provided: 


FIOCS - END OF DATA SET ON UNIT X 


Supplemental Data: Unit number. 
Standard Corrective Action: 
next file, i-e., increment 
sequence number by 1. 


Read 


Programmer Response: Probable 
user error. Make sure that a 


FORMAT statement does not define a 
FORTRAN record longer than the 
record referred to in the data 
set. Either keep a counter to 
avoid exceeding end of record of 
file, or insert an END= parameter 
on the READ statement for 
appropriate transfer of control on 
end of data set. Check all DD 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


IHC2181 


Supplemental Data: 
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® Have source and associated 
listing available. 


e Make sure that LIST has been 
specified as a parameter on the 
EXEC statement. 


I/O ERROR XXXeweeXXX 


Explanation: FIOCS or DIOCS -- 
One of the following occurred: 


e A permanent input/output error 
has been encountered. 


e For sequential I/0, the length 
of a physical record is 
inconsistent with the default 
block size or the blocksize 
specified on the DD card. 


e An attempt has been made to read 
or write with magnetic tape a 
record that is fewer than 18 
bytes long. 

XXKee.XxXxX is the character string IHC2191 

formatted by the SYNADAF macro 

instruction. For an 

interpretation of this 

information, see the publication 


IBM System/360 Operating System: 
Supervisor and Data Management 
Macro Instructions, Order 


No. GC28-6647. After the 
traceback is completed, control is 
returned to the call routine 
statement designated in the ERR 
parameter of a FORTRAN READ 
statement if that parameter was 
specified. (See "Use of ERR 
Parameter in READ Statement" 
additional information.) 


for 


Note: If a permanent input/output 
error has been detected while 
writing in the object error unit 
data set, the error message is 
written in the SYSOUT data set and 
execution of the job is 
terminated. 


If the extended error message 
facility is specified, the 
following information is provided: 


FIOCS - I/O ERROR (text provided 
by data management) 

Unit number. 
Standard Corrective Action: 
Continue execution and ignore I/0 


request. 


Note: ERR= parameter is honored. 
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Programmer Response: Probable 
user error. Make sure that, for 


sequential I/0, the length of the 
physical record is consistent with 
the default or specified 
blocksize. Check all DD 
Statements. Make sure that no 
attempt has been made to read or 
write with magnetic tape froma 
record that is fewer than 18 bytes 
in length. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Make sure that MSGLEVEI=(1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


e Make sure that LIST has been 
specified as a parameter on the 
EXEC statement. 


Explanation: FIOCS -- Either a 
data set is referred to in the 
load module but no DD statement is 
supplied for it, or a DD statement 
has an erroneous ddname. 


If the extended error message 
facility is specified, the 
following information is provided: 


FIOCS - MISSING DD CARD FOR 
(DDname) 

or 

DIOCS ~ MISSING DD CARD FOR UNIT X 


Supplemental Data: Unit number. 


Standard Corrective Action: 


Continue execution and ignore I/0 
request. 


Programmer Response: Probable 
user error. Either provide the 


missing DD statement, or correct 
any erroneous ddname. Example: 
If Unit 6 is the installation data 
set reference number for the 
printer and an attempt is made to 
write on Unit 3, then the 
following DD statement should be 
included: //GO.FT03F001 DD 
SYSOUT=A. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


® Have source and associated 
listing available. 
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e Make sure that LIST has been 
specified as a parameter on the 
EXEC statement. 


e Have Stage I SYSGEN output 
available. 
THC 2221 


Explanation: FIOCS -- A data set 
reference number exceeds the limit 
specified for data set reference 
numbers when this operating system 
was generated. 


If the extended error message 
facility is specified, the 
following information is provided: 


FIOCS ~ UNIT NUMBER OUT OF RANGE. 
UNIT=X 

or 

DIOCS ~ UNIT NUMBER OUT OF RANGE. 
UNIT=X 


Supplemental Data: Unit number. 





Continue execution and ignore I/O 
request. 


Programmer Response: Probable 
user error. Correct the invalid 
data set reference number. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 





IHC 2231 
e Make sure that MSGLEVEL=(1, 1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


e Have Stage I SYSGEN output 
available. 


NAMEL-NAME LARGER THAN EIGHT 
CHARACTERS. NAME=X 


Explanation: NAMEL -- An input 
variable name exceeds eight 
characters. 


ry Name specified 
(first eight characters). 








Standard Corrective Action: 
Ignore remainder of namelist 
request. 


Programmer Response: Correct the 
invalid NAMELIST input variable, 
Or provide any missing delimiters. 
If the problem recurs, do the 
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following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


NAMEL-NAME NOT IN NAMELIST 


DICTIONARY. NAME=X 
Explanation: NAMEL -- An input 


variable name is not in the 
NAMELIST dictionary, or an array 
is specified with an insufficient 
amount of data. 


Supplemental Data: Name 


specified. 


Standard Corrective Action: 
Ignore remainder of namelist 
request. 


Programmer Response: Probable 
user error. Make sure that a 


correct NAMELIST statement is 
included in the source module for 
all variable and/or array names 
read in using NAMELTST. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


NAMEL-END OF 
BEFORE EQUAL 


RECORD 
SIGN. 


ENCOUNTERED 
NAME=X 


-- Either an 
or a subscript 


Explanation: NAMEL 
input variable name 
has no delimiter. 


Supplemental Data: Name of item. 


Standard Corrective Action: 


Ignore remainder of the namelist 
request. 


Programmer Response: Probable 
user error. Make sure that all 


NAMELIST input data is correctly 
specified and all delimiters are 
correctly positioned. Check all 
delimiters. Make sure that 
sequence numbers are not present 
in columns 73-80. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 
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NAMEL-SUBSCRIPT FOR 
NON-DIMENSIONED VARIABLE OR 
SUBSCRIPT OUT OF RANGE. WNAME=X 


Explanation: NAMEL -- A subscript 
is encountered after an 
undimensioned input name, 
subscript is too big. 


or the 


Supplemental Data: Name of item. 
Standard Corrective Action: 
Ignore remainder of the namelist 
request. 





Probable Response: Probable user 
error. Insert any missing 
DIMENSION statements, or correct 
the invalid array reference. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


* Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 
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e Have source and associated 
listing available. 


CONVERT-ILLEGAL HEXADECIMAL 
CHARACTER X 


Explanation: FCVTH -- An invalid 
character is encountered on input 
under Z format code. 


Supplemental Data: Display the 
record in which the character 


appeared. 

Standard Corrective Action: Zero 
replaces the encountered 
character. 

Programmer Response: Probable 


user error. Either correct the 
invalid character, or correct or 
delete the Z format code. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


SOURCE ERROR AT ISN xxxx - 
EXECUTION FAILED [AT SUBROUTINE - 
name] 


Explanation: IBERR -- During load 
module execution, a source 
statement error is encountered. 
The internal statement number for 
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the source statement is xxxx; the 
routine that contains the 


statement is specified by "name." 


Supplemental Data: None. 


Standard Corrective Action: 
Terminate execution. 


Programmer Response: Make sure 
that all source module code is 


correct. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Have source and associated 
listing available. 


Explanation: DIocS -- 
Direct-access input/output 


statements are used for a 
sequential data set, or 
input/output statements 
sequential data set are 
direct access data set. 


fora 
used for a 


If the extended error message 
facility is specified, the 
following information is provided: 


IBCOM - DIRECT ACCESS STATEMENT 
USED WITHOUT DEFINE FILE ON UNIT X 
or 

DIOCS - DIRECT ACCESS STATEMENT 
USED FOR SEQUENTIAL DATA SET X 

or 

FIOCS - SEQUENTIAL I/O STATEMENTS 
USED FOR DIRECT ACCESS DATA SET X 


Supplemental Data: Unit number. 
Standard Corrective Action: 
Ignore I/O request. 


Programmer Response: Probable 
user error. Either include the 


necessary DEFINE FILE statement 
for direct access or delete the 
DEFINE FILE for a sequential data 
set. Make sure that all DD 
statements are correct. Verify 
that all data sets are referenced 
with valid FORTRAN statements for 
the data set type. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 
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IHC2331 


184. 24 


*® Have source and associated 
listing available. 


Explanation: DIOCS ~~ Relative 
position of a record is not a 
positive integer, or the relative 
position exceeds the number of 
records in the data set. 


If the extended error message 
facility is specified, the 
following information is provided: 


THC2341 


DIOCS - RECORD NUMBER X OUT OF 
RANGE ON UNIT X 
Supplemental Data: Unit number 
and record number. 


Standard Corrective Action: 
Ignore I/O request. 


Programmer Response: Probable 
user error. Make sure that the 


relative position on the data set 
has been specified correctly. 
Check ali DD statements. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


Explanation: DIOCS -- The record 
length specified in the DEFINE 
FILE statement exceeds the 
physical limitation of the volume 
assigned to the data set in the DD 
statement. 


If the extended error message 
facility is specified, the 
following information is provided: 
THC2351 
DIOcS —- RECORD LENGTH GREATER THAN 
32K-1 SPECIFIED FOR UNIT X 


Supplemental Data: Unit number 


specified. 

Standard Corrective Action: Set 
record length to 32K, 

Programmer Response: Probable 


user error. Make sure that 
parameters of the DD statement 
conform to specifications in the 
DEFINE FILE statement; the record 
length in both must be equivalent 
and within the physical 
limitations of the assigned 


volume. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


Explanation: DIOCS -- The data 
set assigned to print execution 
error messages cannot be a direct 
access data set. 


If the extended error message 
facility is specified, the 
following information is provided: 


DIOCS - ATTEMPT TO DEFINE THE 
OBJECT ERROR UNIT AS DIRECT ACCESS 
DATA SET. UNIT=X 


Supplemental Data: Unit number. 
Standard Corrective Action: 
Ignore define file entry. 


Programmer Response: Probable 
user error. Make sure that the 
object error unit specified is not 
direct access. See the 
publication IBM System/360 
Operating System: System 
Generation, Order No. GC28-6554, 
for information on assigning the 
data set reference number. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MSGLEVEL= (1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


Explanation: DIOCS -- A data set 
reference number assigned to a 
direct access data set is used for 
a sequential data set. 


If the extended error message 
facility is specified, the 
following information is provided: 


DIOCS - DEFINE A DATA SET WHICH 
HAS BEEN USED SEQUENTIALLY AS A 
DIRECT ACCESS DATA SET. UNIT=X 


Supplemental Data: Unit number. 


Standard Corrective Action: 
Ignore define file entry. 
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Programmer Response: Probable 
user error. Make sure that use of 


and/or reference to sequential 
data sets does not conflict with 
FORTRAN defined direct access data 
sets. Verify that device classes 
assigned by the installation do 
not conflict with the 
specification on the UNIT 
parameter of the DD statement. 
Make sure that the DEFINE FILE 
statement defines a direct access 
data set. Check all DD 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: THC240L 
® Make sure that MSGLEVEL=(1, 1) 

was specified on the JOB 

statement. 


e Have source and associated 
listing available. 


DIOcS -~ A READ is 
a direct access data 
not been created. 


Explanation: 
executed for 


set that has 


If the extended error message 
facility is specified, the 
following information is provided: 


DIOCS - READ REQUEST FOR AN 
UNCREATED DATA SET ON UNIT X 


Supplemental Data: Unit number. 
Standard Corrective Action: 
Ignore I/O request. 


Programmer Response: Probable 
user error. Make sure that either 


a data set utility program has 
been used, or appropriate 
parameters have been specified on 
the associated DD statement. 
Verify that, if a DD statement is 
used, DSNAME, UNIT, VOLUME, SPACE, 
LABEL DISP, SYSOUT, and DCB are 
specified correctly or omitted 
where appropriate. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


*® Make sure that MSGLEVEL=(1,1) 
was specified on the JOB 
statement. 
THC241T 
e Have source and associated 
listing available. 


Explanation: DIOCS -- Length of a 
record did not correspond to 
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length of record specified in 
DEFINE FILE statement. 


If the extended error message 
facility is specified, the 
following information is provided: 


DIOCS - INCORRECT RECORD LENGTH 
SPECIFIED FOR UNIT X 


Supplemental data: Unit for which 


error occurred. 


Standard Corrective Action: 
Ignore the I/O request. 


STAE--SYSTEM ABEND CODE IS XXXX. 
FORTRAN CODE IS X. 


The XXXX field 
abnormal termination 
completion code. The X field 
contains one character, either A, 
B, or C. The meanings of these 
codes are: 


Explanation: 
contains the 


A -- Input/output has been halted 
and cannot be restored. 


B -- Input/output has been halted. 
The system will attempt to 
restart input/output and then 
close data sets. 

C -- No active input/output at 


ABEND time. The system will 
close data sets. 


Standard Corrective Action: None. 
Programmer Response: Probable 


user error. Make sure that 
parameters on the DD statement 
conform to specifications in the 
DEFINE FILE statement. Verify 
that record length, buffer length, 
and/or block length as indicated 
on the DD statement do not 
conflict with specifications in 
the DEFINE FILE statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MSGLEVEL= (1,1) 
was specified on the JOB 
statement. 


e Have source and associated 
listing available. 


FIXPI INTEGER BASE=0, INTEGER 
EXPONENT=X, LE 0 
Explanation: LIB -- For an 


exponentiation operation (I**J) in 
the subprogram IHCFIXPI (FIXPI#) 
where I and J represent integer 
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184, 26 


variabies or integer constants, I 
is equal to zero and J is less 
than or equal to zero, 


Supplemental Data: 
specified. 


Exponent 


Result=0. 


Programmer Response: Probable 
user error. Make sure that 


integer variables and/or integer 
constants for an exponentiation 
operation are within the allowable 
range. If the base and exponent 
may or will fall outside that 
range during program execution, 
then either modify the operand(s), 
or insert source code to test for 
the situation and make the 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 
necessary. Example: Assume I,J,K 
previously defined integer 
variables. 


IF(I.EQ.0.AND.J.LE.0) GO TO 11 
K = [#*J 
11 CONTINUE 


If the problem recurs, do the 
following before calling IBM for 
programming support: THC2431 
® Make sure that MAP and LIST have 

been specified as parameters on 

the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


* Have source and associated 
listing available. 


FRXPI REAL*4 BASE=0.0, INTEGER 
EXPONENT=X, LE 0 
Explanation: LIB -~ For an 


exponentiation operation (R**J) in 
the subprogram IHCFRXPI(FRXPI#), 
where R represents a real*4 
variable or real*4 constant, and J 
represents an integer variable or 
integer constant, R is equal to 
zero and J is less than or equal 
to zero. 


Supplemental Data: 
specified. 


Exponent 


Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


the real variable or constant base 
and the integer variable or 
constant exponent for an 
exponentiation operation are 
within the allowable range. If 
the base and exponent may or will 
fall outside that range during 
program execution, then either 
modify the operand(s), or insert 
source code to test for the 
situation and make the 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC241iI.} If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


FDXPI REAL*8 BASE=0.0, INTEGER 
EXPONENT=X, LE 0 
Explanation: LIB -- For an 


exponentiation operation (D*#*J) in 
the subprogram IHCFDXPI(FDXPI#), 
where D represents a real*8 
variable or real*8 constant and J 
represents an integer variable or 
integer constant, D is equal to 
zero and J is less than or equal 
to zero. 


Supplemental Data: Exponent 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


the real variable or constant base 
and the integer variable or 
constant exponent for an 
exponentiation operation are 
within the allowable range. If 
the base and exponent may or will 
fall outside that range during 
execution, then either modify the 
operand(s), or insert. source code 
to test for the situation and make 
the compensation appropriate to 
the program unit. Bypass the 
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exponentiation operation if THC245T 
necessary. (See similar example 

for IHC241I.) If the problem 

recurs, do the following before 

calling IBM for programming 

support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and the 
necessary DD statement included. 


e Have source and associated 
listing available. 


FRXPR REAL*4 BASE=0.0, 
EXPONENT=X%.X, LE 0 


REAL*4, 


Explanation: LIB -- For an 
exponentiation operation (R**S) in 
the subprogram IHCFRXPR(FRXPR#), 
where R and S represent real*4 
variables or real*4 constants, R 
is equal to zero and S is less 
than or equal to zero. 








Supplemental Data: Exponent 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


the real variable or constant base 
and exponent for an exponentiation 
operation are within the allowable 
range. If the base and exponent 
may or will fall outside that 
range during program execution, 
then either modify the operand(s), 
or insert source code to test for 
the situation and make 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC241I.) If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


THC2461 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 
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FDXPD REAL*8 BASE=0.0, REAL*8 
EXPONENT=X. X, LE 0 
Explanation: LIB -- For an 


exponentiation operation (D**P) in 
the subprogram IHCFDXPD(FDXPD#), 
where D and P represent real*8 
variables or real*8 constants, D 
is equal to zero and P is less 
than or equal to zero. 


Supplemental Data: Exponent 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that both 
the real variable or constant base 
and exponent for an exponentiation 
operation are within the allowable 
range. If the base and exponent 
may or will fall outside that 
range during program execution, 
then either modify the operand(s), 
or insert source code to test for 
the situation and make 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC2411.) If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


* Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


FCXPI COMPLEX*8 BASE=0.0+0.0I, 


INTEGER EXPONENT=X, LE 0 
Explanation: LIB -- For an 


exponentiation operation (Z**J) in 
the subprogram IHCFCXPI(FCXPI#), 
where Z represents a complex*s 
variable or complex*8 constant and 
J represents an integer variable 
or integer constant, Z is equal to 
zero and J is less than or equal 
to zero. 


Supplemental Data: Exponent 


specified. 
Standard Corrective Action: 
Result=0. 
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Programmer Response: Probable 
user error. Make sure that both 
the complex variable or constant 
base and the integer variable or 
constant exponent for an 
exponentiation operation are 
within the allowable range. If 
the base and exponent may or will 
fall outside that range during 
program execution, then either 
modify the operand(s), or insert 
source code to test for the 
situation and make the 
compensation appropriate to the 
program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC241I.) If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


*« Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


THC 2511 


*® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


FCDXI COMPLEX*16 BASE=0, 0+0. 01, 
INTEGER EXPONENT=X, LE 0 


Explanation: LIB -- For an 
exponentiation operation (Z**J) in 
the subprogram IHCFCDXI(FCDXI#), 
where Z2 represents a complex*16 
variable or complex*i6 constant 
and J represents an integer 
variable or integer constant, Z is 
equal to zero and J is less than 
or equal to zero. 





Supplemental Data: 
specified. 


Exponent 


Standard Corrective Action: 
Result=0. 





Programmer Response: Probable 
user error. Make sure that both 
the complex variable or constant 
base and the integer variable or 
constant exponent for an 
exponentiation operation are 
within the allowable range. If 
the base and exponent may or will 
fall outside that range during 
program execution, then either 
modify the operand(s), or insert 
source code to test for the 
situation and make the 
compensation appropriate to the 
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program unit. Bypass the 
exponentiation operation if 
necessary. (See similar example 
for IHC2411I.) If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


SORT NEGATIVE ARGUMENT=X 


Explanation: LIB -~ In the 
Subprogram IHCSSQRT (SORT), 


argument is less than 0. 


the 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=[X]4+/2. 


Programmer Response: Probable 
user error. Make sure that the 
argument is within the allowable 
range. Either modify the 
argument, or insert source code to 
test for a negative argument and 
make the necessary compensation. 
Bypass the function reference if 
necessary. Example: Assume ARG 
(REAL*#4) is to be the input 
argument to SORT. Then a simple 
test might appear: 


IF (ARG) 10,20, 20 
10 ARG = ABS (ARG) 
20 ANS = SORT (ARG) 


If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 
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EXP. ARG=X.X, GT 174.673 
Explanation: LIB -- In the 
subprogram IHCSEXP(EXP), the 
argument is greater than 174.673. 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: 
Result=*. 





Programmer Response: Probable 
user error. Make sure that the 
argument to the exponential 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


THC2541 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC spatement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


ALOG-ALOG10 ARG=X.X, LE ZERO 
Explanation: LIB -- In the 


subprogram IHCSLOG(ALOG and 
ALOG10), the argument is less than 
or equal to zero. Because this 
subprogram is called by an 
exponential subprogram, this 
message also indicates that an 
attempt has been made to raise a 
negative base to a real power. 


Supplemental Data: 
specified. 


Argument 





Standard Corrective Action: If 


X=0, result=-*; if xX<0, 
result=log|X| or log,,|X|- 


Programmer Response: Probable 
user error. Make sure that the 
argument to the logarithmic 
function is within the allowable 
range. If the argument may or 
will be outside that range during 
program execution, then provide 
code to test for the situation 
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and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
specified in the PARM field of 
the EXEC statement and that the 
necessary DD statement is 
included. 


e Have source and associated 
listing available. 


SIN-COS/ARG/=/X. X (HEX=X) 7, GE 
PL*¥2*+#18 
Explanation: LIB -- In the 


subprogram IHCSSCN(SIN and COS), 
the absolute value of an argument 
is greater than or equal to 218e7, 
(22780 % =, 82354966406249996D+06) 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: 
Result= v 2/2. 








Programmer Response: Probable 
user error. Make sure that the 


argument (in radians where 1 
radian ~ 57.2957795131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e® Have source and associated 


listing available. 
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ATAN2 ARGUMENTS=0. 0 


Explanation: LIB -~ In the 
subprogram IHCSATN2, when entry 
name ATAN2 is used, both arguments 
are equal to zero. 


Supplemental Data: 
specified. 


Arguments 


Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


arguments do not become zero 
during program execution, or are 
not inadvertently initialized or 
modified to zero. Provide code to 
test for the situation and, if 
necessary, modify the arguments or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support ; 


THC2571I 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


SINH-~COSH/ARG/=/X.X/, GE 175.366 
Explanation: LIB -- In the 


subprogram IHCSSCNH(SINH or COSH), 
the argument is greater than or 
equal to 174.673. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 


Result=*. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the hyperbolic sine or 
cosine function is within the 
allowable range. If the argument 
May or will exceed that range 
during program execution, then 
provide code to test for the 
Situation and, if necessary, 
modify the argument or bypass the 
source referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


THC 2581 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


ASIN-ARCOS/ARG/=/X.X/ GT 1 


Explanation: LIB -~ In the 
subprogram IHCSASCN (ARCSIN or 
ARCOS), the absolute value of the 
argument is greater than 1. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the arcsine or 
arccosing function is between -1 
and +1, inclusive. If the 
argument may or will fall outside 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


TAN-COTAN/ARG/=/X. X(HEX=X)/, GE 
PI*2**18 


Explanation: LIB -~- In the 
subprogram IHCSTNCT (TAN or 


COTAN), the absolute value of the 
argument is greater than or equal 
to 218en, 

(228 en=, 82354966406249996D+06) 


Supplemental Data: Argument 


specified. 
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Standard Corrective Action: 
Result=1. 


Programmer Response: Probable 
user error. Make sure that the 


argument (in radians where 1 
radian 357. 2957795131°) to the 
trigonometric tangent or cotangent 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


THC 2611 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


TAN-COTAN/ARG/=/X. X (HEX=X)/, 
APPROACHES SINGULARITY 


Explanation: LIB -- In the 
subprogram IHCSTNCT (TAN or 
COTAN), the argument value is too 
close to one of the singularities 


for the tangent; 


or ta,+2n,... for the cotangent). 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 
user error. Make sure that the 


argument (in radians where 1 
radian ~ 57. 2957795131°) to the 
trigonometric tangent or cotangent 
function is within the allowable 
range. If the argument may or 
will approach the corresponding 
singularities for the function 
during program execution, then 
provide code to test for the 
situation and, if necessary, 
modify the argument or bypass the 
source referencing the function 
subprogram. If the problem 
recurs, do the following before 


IHC 2621 
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calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DSQRT NEGATIVE ARGUMENT=X, X 


Explanation: LIB -- In the 
subprogram IHCLSQRT(DSQRT), the 
argument is less than 0. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=|X|[+7?. 


Programmer Response: Probable 
user error. Make sure that the 


argument is within the allowable 
range. Either modify the 
argument, or insert source code to 
test for a negative argument and 
make the necessary compensation. 
Bypass the function reference if 
necessary. Example: Assume DARG 
(REAL*8) is to be the input 
argument to DSORT. Then a simple 
test might appear: 


IF (DARG) 10, 20,20 
10 DARG = DABS (DARG) 
20 ANS = DSQORT (DARG) 


If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 

DEXP ARG=X.X, GT 174.673 

Explanation: LIB -- In the 


subprogram IHCLEXP(DEXP), the 
argument is greater than 174.673. 
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184, 32 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 
user error. Make sure that the 
argument to the exponential 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IHC 2641 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


° Have source and associated 
listing available. 
DLOG-DLOG10 ARG=X.X, LE ZERO 
Explanation: LIB -- In the 
subprogram IHCLLOG(DLOG and 
DLOG10), the argument is less than 
or equal to zero. Because the 
subprogram is called by an 
exponential subprogram, this 
message also indicates that an 
attempt has been made to raise a 
negative base to a real power. 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: If 
X=C0, result=-*; if X<0, 
result=log[X| or log,, |X|. 


Programmer Response: Probable 
user error. Make sure that the 
argument to the logarithmic 
function is within the allowable 
range. If the argument may or 
will be outside that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 


IHC265I 


calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DSIN-DCOS/ARG/=/X. X (HEX=X)/, 
GE PI*2**50 


Explanation: LIB -- In the 
subprogram IHCLSCN(DSIN and DCOS), 
the absolute value of the argument 
is greater than or equal to 25°e%, 
(25°e x =, 35371188737802239D+16) 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result = Jide 


Programmer Response: Probable 
user error. Make sure that the 


argument (in radians where 1 
radian* 57. 2957795131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DATAN2 ARGUMENTS=0. 0 


Explanation: LIB -- In the 
subprogram IHCLATN2, when entry 
name DATAN2 is used, both 


arguments are equal to zero. 


IHC2661 
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Supplemental Data: 
specified. 


Arguments 


Standard Corrective Action: 
Result=0. 


Programmer Response: Probable 
user error. Make sure that both 


arguments do not become zero 
during program execution, or are 
not inadvertently initialized or 
modified to zero. Provide code to 
test for the situation and, if 
necessary, modify the arguments or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IHC 2671 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 
DSINH-DCOSH/ARG/=/X.X/, GE 175. 366 
Explanation: LIB -- In the 
subprogram IHCLSCNH (DSINH or 
DCOSH), the absolute value of the 


argument is greater than or equal 
to 175.366. 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the hyperbolic sine or 
cosine function is within the 
allowable range. If the argument 
may Or will exceed that range 
during program execution, then 
provide code to test for the 
situation and, if necessary, 
modify the argument or bypass the 
source referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IHC2681 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 
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e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DARSIN-DARCOS/ARG/=/X. X/, GT 1 
Explanation: LIB ~-- In the 
subprogram IHCLASCN (DARSIN or 


DARCOS), the absolute value of the 
argument is greater than 1. 
Supplemental Data: Argument 
specified. 

Standard Corrective Action: 
Result=0. 

Programmer Response: Probable 


user error. Make sure that the 
argument to the arcsine or 
arccosine function is between -1 
and +1, inclusive. If the 
argument may or will fall outside 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available, 


DTAN-DCOTAN/ARG/=/X. X (HEX=X)/ GE 
PI*(2**50) 


Explanation: LIB ~- In the 
subprogram IHCLTNCT (DTAN or 


DCOTAN), the absolute value of the 
argument is greater than or equal 
to 25%en, (25°%e x 

=. 35371188737802239D+16) 
Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=1. 
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184, 34 


by TNL: 


Programmer Response: Probable 
user error. Make sure that the 
argument (in radians where 1 
radian 757. 2957795131°) to the 
trigonometric tangent or cotangent 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 





THC2711 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DTAN-DCOTAN/ARG/=/X. X (HEX=X) 7, 
APPROACHES SINGULARITY 


lanati LIB -- In the 
subprogram IHCLTNCT (DTAN or 
DCOTAN), the argument value is too 
close to one of the singularities 


(401 43Hr- es for the tangent; 
45’ 


specified. 


Standard Corrective Action: 
Result=*. 





Programmer Response: Probable 
user error. Make sure that the 
argument (in radians where 1 
radian © 57. 2957795131°) to the 
trigonometric tangent or cotangent 
function is within the allowable 
range. If the argument may or 
will approach the corresponding 
singularities for the function 
during program execution, then 
provide code to test for the 
situation and, if necessary, 
modify the argument or bypass the 
source referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 





THC 2721 


GN28-0591 


*® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


* Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


CEXP REAL ARG=X. X(HEX=X), GT 
174.673 
Explanation: LIB -- In the 


subprogram IHCCSEXP (CEXP), the 
value of the real part of the 
argument is greater than 174.673. 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: 
Result=*(COS X + iSIN X) where X 
is the imaginary portion of the 
argument. 





Programmer Response: Probable 
user error. Make sure that the 


argument is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation, 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the 

problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CEXP IMAG ARG=X(HEX=X), ABS VALUE 
GE PI*2**18 


Explanation: LIB -- In the 
subprogram IHCCSEXP (CEXP), the 
absolute value of the imaginary 
part of the argument is greater 
than or equal to 218eH, 

(2278 en=. 82354966406249996Dt06) 


LHC2731 


Page of 


Argument 


specified. 


Standard Corrective Action: 
Result=0+0i. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the exponential 
function is within the allowable 
range. If the argument may or 
will exceed that range during 
program execution, then provide 
code to test for the situation, 
and, if necessary, modify the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


THC 2741 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CLOG ARGUMENT=0.0+0. 01 


anatio LIB -- In the 
subprogram IHCCSLOG (CLOG), the 
real and imaginary parts of the 
argument are equal to zero. 


Argument 


specified. 


Standard Corrective Action: 
Result=—*+0i. 





Programmer Response: Probable 
user error. Make sure that both 


the real and imaginary parts of 
the argument do not become zero 
during program execution, or are 
not inadvertently initialized or 
modified to zero. Provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the © 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


THC 2751 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 
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e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CSIN-CCOS/REAL ARG/=/X.X (HEX=X)/, 
GE PI*2**18 


Explanation: LIB -- In the 
subprogram IHCCSSCN (CSIN or 
ccos), the absolute value of the 
real part of the argument is 
greater than or equal to 218e, 
(218 e%=, 82354966406249996D+06) 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: 
Result=0+0i. 


Programmer Response: Probable 
user error. Make sure that the 


real part of the argument 

(in radians where 1 radian 

57. 2957795131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the real part of the 
argument may or will exceed the 
range during program execution, 
then provide code to test for the 
situation and, if necessary, 
modify the real part of the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CSIN-CCOS/IMAG ARG/=/X.X (HEX=X)/ 
GT 174. 673 


Explanation: LIB -- In the 
subprogram IHCCSSCN (CSIN or 
ccoSsS), the absolute value of the 
imaginary part of the argument is 
greater than 174.673. 
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Supplemental Data: 
specified. 


Argument 


Standard Corrective Data: If 
imaginary part >0, (X is real 
portion of argument): 





e For sine, result=*/2(SIN XK + 


icos X). 
e For cosine, result=4#/2(COS X - 
iSIN xX). 
If imaginary part <0, (X is real 
portion of argument): 


e For Sine, result=*/2(SIN X - 


icosS X). 

e For cosine, result=*/2(COS X + 
iSIN X)}. 

Programmer Response: Probable 


user error. Make sure that the 
imaginary part of the argument (in 
radians where 1 radian~ 
57.2957797131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the imaginary part of 
the argument may or will exceed 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the imaginary 
part of the argument or bypass the 
source referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


THC282T 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CDEXP-REAL ARG=X.X(HEX=X) GT 
174.673 


Explanation: LIB -- In the 
subprogram ITHCCLEXP (CDEXP), 
value of the real part of the 
argument is greater than 174.673. 


the 


Supplemental Data: 
specified. 


Argument 


Standard Corrective Action: 
Result=*(COS X + iSIN X) where X 





is the imaginary portion of the 
argument. 


Programmer Response: Probable 
user error. Make sure that the 


real part of the argument to the 
exponential function is within the 
allowable range. If the real part 
of the argument may or will exceed 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the real part of 
the argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CDEXP IMAG ARG=X. X(HEX=X) ABS 
VALUE GE PI*2**50 


Explanation: LIB -- In the 
subprogram IHCCLEXP (CDEXP), the 
absolute value of the imaginary 
part of the argument is greater 
than or equal to 25°en, 

(25%en=, 35371188737802239D+16) 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*+0i. 


Programmer Response: Probable 
user error. Make sure that the 


imaginary part of the argument to 
the exponential function is within 
the allowable range. If the 
imaginary part of the argument may 
or will exceed that range during 
program execution, then provide 
code to test for the situation 
and, if necessary, modify the 
imaginary part of the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


THC2831 


THC284I 
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e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 

CDLOG ARGUMENT=0.0+0.01 

Explanation: LIB -- In the 


subprogram IHCCLLOG (CDLOG), the 
real and imaginary parts of the 


argument are equal to zero. 
Supplemental Data: Argument 


specified. 


Standard Corrective Action: 


Result=*+0i. 


mer Res Probable 
user error. Make sure that both 
the real and imaginary parts of 
the argument do not become zero 
during program execution, or are 
not inadvertently initialized or 
modified to zero. Provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


THC2851 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


CDSIN-CDCOS/REAL ARG/=/X.X 
(HEX=X)/, GE PI*2*#50 


Explanation: LIB -- In the 
subprogram IHCCLSCN (CDSIN or 
CDCOS), the absolute value of the 
real part of the argument is 
greater than or equal to 25°, 
(28% m=, 35371188737802239D+16) 





Argument 


specified. 
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Standard Corrective Action: 
Result=0+0i. 


Programmer Response: Probable 
user error. Make sure that the 


real part of the argument (in 
radians where 1 radian ~ 
57.2957795131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the part of the 
argument may or will exceed the 
range during program execution, 
then provide code to test for the 
situation and, if necessary, 
modify the real part of the 
argument or bypass the source 
referencing the function 
subprogram. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


CDSIN-CDCOS/IMAG ARG/=/X.X 
(HEX=X)/, GT 174.673 


Explanation: LIB -- In the 
subprogram IHCCLSCN (CDSIN or 
CDCOS), the absolute value of the 
imaginary part of the argument is 
greater than 174.673. 


Supplemental Data: Argument 


specified. 

Standard Corrective Action: If 

imaginary part >0, (X is real 

portion of argument): 

e For sine, result=*/2(SIN X + 
icoS X). 

e For cosine, result=*/2(COS X - 
iSIN X). 

If imaginary part <0, (X is real 

portion of argument): 

® For sine, result=*/2(SIN X - 
icos X). 

e For cosine, result=#/2(COS X + 

iSIN X). 
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184. 38 


Programmer Response: Probable 
user error. Make sure that the 
imaginary part of the argument (in 
radians where 1 radian 2 
57.2957795131°) to the 
trigonometric sine or cosine 
function is within the allowable 
range. If the imaginary part of 
the argument may or will exceed 
that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the imaginary 
part of the argument or bypass the 
source referencing the function 
subprogram. If the program 
recurs, do the following before 
calling IBM for programming 
support: 





THC2911 


e« Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


« Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 

listing available. 
GAMMA ARG=X, X(HEX=X), LE 2**-252 
OR GE 57.5744 


Exp! ‘ic LIB -- In the 
subprogram IHCSGAMA (GAMMA), the 
value of the argument is outside 
the valid range. (Valid range: 
27 252<€x<57, 5744) 
Supplemental Data: Argument 
specified. 


Standard Corrective Action: 
Result=*, 





Programmer Response: Probable 
user error. Make sure that the 


argument to the gamma function is 
within the allowable range. If 
the argument may or will be 
outside that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


IHC300I 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 
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e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


ALGAMA ARG=X. X(HEX=X), LE 0. OR 
GE 4, 2937*10**73 


Explanation: LIB -- In the 
subprogram IHCSGAMA {ALGAMA), the 


value of the argument is outside 
the valid range. (Valid range: 
0<x<4,. 2937x1073) 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the algama function is 
within the allowable range. If 
the argument may or will be 
outside that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the necessary DD statement 
included. 


e Have source and associated 
listing available. 


DGAMMA ARG=X.X{HEX=X), LE 2**-252 
OR GE 57.5744 


Explanation: LIB -- In the 
subprogram IHCLGAMA (DGAMMA), the 


value of the argument is outside 
the valid range. (Valid range: 
2-252<x<57. 5744) 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=+*. 


Programmer Response: Probable 
user error. Make sure that the 


IHC3011 
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argument to the dgamma function is 
within the allowable range. If 
the argument may or will be 
outside that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the . 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


DLGAMA ARG=X. X(HEX=X), LE 0. OR 
GE 4,.2937*10**73 
Explanation: LIB -- In the 





subprogram IHCLGAMA (DLGAMA), the 
value of the argument is outside 
the valid range. (Valid range: 
0<x<4. 2937x1073) 


Supplemental Data: Argument 


specified. 


Standard Corrective Action: 
Result=*. 


Programmer Response: Probable 
user error. Make sure that the 


argument to the dlgama function is 
within the allowable range. If 
the argument may or will be 
outside that range during program 
execution, then provide code to 
test for the situation and, if 
necessary, modify the argument or 
bypass the source referencing the 
function subprogram. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 
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e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


Even though message printing may be 
suppressed when the extended error message 


facility is available, 
is printed when the job is completed. 
format is shown in Figure 101. 


a summary of errors 
Its 
The format 


of a traceback map is shown in Figure 102. 


The headings in the traceback map may be 
described as follows: 


ROUTINE 


ISN 


REG. 


REG. 


REG. 


14 


15 


The name of the routine entered, 
which was called by the next 
routine in the list. 


When the compiler's ID option 
supplies an Internal Statement 
Number (ISN), the ISN entry is a 
symbolic reference to the point 
from which the routine was called. 


This is the absolute location 
reference to the point from which 
ROUTINE was called. By using the 
ENTRY POINT location, a relative 
location can be computed. 


This is the address of the entry 
point in ROUTINE. 


This is the result register used 
by function subprograms. 


This is the address of the 
argument list passed to ROUTINE. 


If the user specifies that an 


installation-supplied routine is 
for corrective action, 


to be used 


this line is added 


to the message: 


For a standard corrective action, 


USER FIXUP TAKEN, 


EXECUTION CONTINUING 


the 


message addition reads: 


STANDARD FIXUP TAKEN, 


EXECUTION 


CONTINUING 
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SUMMARY OF ERRORS FOR THIS JOB ERROR NUMBER NUMBER OR ERRORS 
219 1 
217 1 
211 57 
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Figure 101. Summary of Error and Traceback 
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TRACEBACK FOLLOWS- ROUTINE ISN REG. 14 REG. 15° REG. O REG. 1 
IBCOM 000083B4 000089B8 00000005 000081A6 
MAIN 00004918 50008020 00000030 O003FFO4 
ENTRY POINT- 50008020 
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Figure 102. Example of Traceback Map 


If the extended error message facility e Make sure that MSGLEVEI=(1,1) 
detects an error condition, an was specified on the JOB 
informational message is printed and the statement. 
job may be terminated. The following text 
contains a description of such messages. e Have source and associated 


listing available. 
THC900I EXECUTION TERMINATING DUE TO ERROR 





COUNT FOR ERROR NUMBER X THC901I EXECUTION TERMINATING DUE TO 
SECONDARY ENTRY TO ERROR MONITOR 

Explanation: This error has FOR ERROR X WHILE PROCESSING ERROR 

occurred frequently enough to xX 

reach the count specified as the 

number at which execution should Explanation: In a user's 

be terminated. corrective action routine, an 
error has occurred that has called 

System Action: The job is the error monitor before it has 

terminated. returned from processing a 


diagnosed error. 
Programmer Response: Probable 


user error. Make sure that System Action: The job is 
occurrences of the error number terminated. 

indicated are eliminated. For 

alternative action, see the Note: If Traceback follows this 
Extended Error Handling Facility message, it may be unreliable. 
section. If the problem recurs, 

do the following before calling IBM Programmer Response: Probable 
for programming support: user error. Make sure that the 


error monitor is not called prior 
to processing the diagnosed error. 
Example: A statement such as 

R=A**B cannot be used in the exit 


e Make sure that MAP and LIST have routine for error 252, because 
been specified as parameters on FRXPR# uses EXP, which detects 
the EXEC statement. error 252. If the problem recurs, 

do the following before calling 

e Make sure that the XREF option IBM for programming support: 
is specified in the PARM field 
of the EXEC statement and that ® Make sure that MAP and LIST have 
the necessary DD statement is been specified as parameters on 
included. the EXEC statement. 
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THC902T 


THC9O3I 
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® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


® Have source and associated 
listing available. 


ERROR NUMBER X OUT OF RANGE OF 
ERROR TABLE 


Explanation: A request has been 
made to reference a non-existent 
Option Table entry. 


System Action: The request is 
ignored and execution continues. 
IRETCD is set to zero. 





Programmer Response: Probable 
user error. Make sure that the 


value assigned to an error 
condition is within the range of 
entries in the option table. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


THC 904T 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


® Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement in 
included. 


e Have source and associated 
listing available. 


e Have information from system 
generation time on the extended 
error handling facility 
available. 


ATTEMPT TO CHANGE UNMODIFIABLE 
TABLE ENTRY, NUMBER=X 


Explanation: The Option Table 
specifies that no changes may be 
made in this entry, but a change 
request has been made by use of 
CALL ERRSET or CALL ERRSTR. 


System Action: The request is 
ignored and execution continues. 


Programmer Response: Probable 
user error. Make sure that no 
attempt has been made to alter 
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dynamically an unmodifiable entry 
in the Option Table. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the FXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


e Have information from system 
generation time on the extended 
error handling facility 
available. 


ATTEMPT TO DO I/O DURING FIXUP 
ROUTINE FOR AN I/O TYPE ERROR 


Explanation: When attempting to 
correct an input/output error, the 
user may not issue a READ, WRITE, 


BACKSPACE, ENDFILE, REWIND, PDUMP, 
DEBUG, Or ERRTRA. 

System Action: The job is 
terminated. 

Programmer Response: Probable 


user error. Make sure that, if an 
I/O error is detected, the user 
exit routine does not attempt to 
execute any FORTRAN I/O statement. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Make sure that MAP and LIST have 
been specified as parameters on 
the EXEC statement. 


e Make sure that the XREF option 
is specified in the PARM field 
of the EXEC statement and that 
the necessary DD statement is 
included. 


e Have source and associated 
listing available. 


e Have information from system 
generation time on the extended 
error handling facility 
available. 
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Qperator Messages 


Operator messages for STOP and PAUSE are 
generated during load module execution. 


The message for a PAUSE can be one of 
the forms: 


PAUSE n 
yy IHCOO1A, PAUSE ‘messaqe' > 
PAUSE 0 : 
where: yy is the identification 
number 
n is the unsigned 1-5 digit 


integer constant 
specified in a PAUSE 
source statement 


*message" is the literal constant 
specified in a PAUSE 
source statement 

0 is printed out when a 

PAUSE 
statement is executed 
Explanation: The programmer should give 
instructions that indicate the action to be 


taken by the operator when the PAUSE is 
encountered. 
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User Response: To resume execution, the 
operator presses the REQUEST key. When the 
PROCEED light comes on, the operator types 


REPLY yy, 'Z'‘ 


where yy is the identification number and Z 
is any letter or number. To resume program 
execution, the operator must press the 
alternate coding key and a numeric 5. 


The message for a STOP statement is of 
the form: 


THCOO2I STOP n 


where: n is the unsigned 1-5 digit 
integer constant specified in 
a STOP source statement. 

This value is placed in 
register 15 when the STOP 


statement is executed. 


A STOP or STOP 0 message is 
not displayed on the console. 


User Response: None 


APPENDIX E: EXTENDED AMERICAN NATIONAL STANDARD CARRIAGE CONTROL CHARACTERS 


Code Interpretation 
* blank Space one line before printing 
* 0 Space two lines before printing 


Space three lines before printing 
Suppress space before printing 
Skip to first line of a new page 
Skip to channel 2 

Skip to channel 3 

Skip to channel 4 

Skip to channel 5 

Skip to channel 6 

Skip to channel 7 

Skip to channel 8 

Skip to channel 9 

Skip to channel 10 

Skip to channel 11 

Skip to channel 12 

Select punch pocket 1 

Select punch pocket 2 


SAOWOPCoOyAMN Sewn + 


* These carriage control characters are identical to the FORTRAN carriage control 
characters specified in the FORTRAN IV Language publication. 
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APPENDIX F: UNIT TYPES 


The UNIT parameter of the DD statement Direct Access Units 
can identify an input or output unit by its 
actual address, its type number, or its 
group name. Type numbers, automatically 


established at system generation, corre- Unit Type Unit 
spond to units entered into system 2301 2301 Drum Storage Unit 
configurations. Type numbers and 2302 2302 Disk Storage Drive 
corresponding units are listed here for the 2303 2303 Drum Storage Unit 
reader's convenience. The 2305 Drum | 2305 2305 Drum Storage Unit 
Storage Unit, the 3330 Disk Storage Unit, 2311 Any 2311 Disk Storage Drive 
and the 3211 Printer are listed for planning 2314 2314 Storage Facility 
purposes only. 2321 Any bin mounted on a 2321 
data cell drive 
| 3330 3330 Disk Storage Facility 


Unit _ Type Unit 





2400 "2400 series 9-Track Magnetic Unit Record Equipment 
Tape Drive that can be 1052 1052 Printer-Keyboard 
allocated to a data set 1403 1403 Printer or 1404 Printer 
written or to be written (continuous form only) 
in 800 bpi density 1442 1442 Card Read Punch 
1443 any 1443 Printer 
2400-1 2400 series Magnetic Tape 2501 2501 Card Reader 
Drive with 7-Track 2520 2520 Card Read Punch 
Compatibility and without 2540 2540 Card Read Punch (read 
Data Conversion feed) 
2540-2 2540 Card Read Punch (punch 
2400-2 2400 series Magnetic Tape feed) 
Drive with 7-Track 2671 2671 Paper Tape Reader 
Compatibility and Data | 3211 3211 Printer 
Conversion 
2400-3 2400 series 9-Track Magnetic Graphic Units 
Tape Drive that can be 1053 1053 Model 4 Printer 
allocated to a data set 2250-1 2250 Display Unit, Model 1 
written or to be written 2250-3 2250 Display Unit, Model 3 
in 1600 bpi density 2260-1 2260 Model 1 Display Station 
, (Local Attachment) 
2400-4 2400 series 9-Track Magnetic 2260-2 2260 Model 2 Display Station 
Tape Drive having an 800 (Local Attachment) 
and 1600 bpi (density) 2280 2280 Film Recorder 
capability 2282 2282 Film Recorder-Scanner 
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The FORTRAN IV (G) Debug Facility 
statements (DEBUG, AT, DISPLAY, TRACE ON 
and TRACE OFF) are described in the FORTRAN 
IvV_Language publication. This section 
describes the output produced when these 
statements are used in a FORTRAN source 
module. 


DEBUG_STATEMENT 


The options UNIT, TRACE, SUBTRACE, INIT, 
and SUBCHK may be specified in the DEBUG 
statement. The UNIT option indicates the 
unit on which the DEBUG output is to be 
written; if this option is omitted, DEBUG 
output is written on SYSOUT. : 


TRACE 


TRACE output is written only when TRACE 
is on as a result of the TRACE ON 
statement. For each labeled statement that 
is executed, the line 


~DEBUG~TRACE statement~-label 


is written. 


SUBTRACE 


SUBTRACE is used to trace program flow 
from one routine to another. For each 
subprogram called, the line 


~DEBUG~-SUBTRACE subprogram~name 


is written on entry to the subprogram, and 


the line » 


-~DEBUG-SUBTRACE *RETURN* 


is written on exit from the subprogram. 


INIT 


The output produced as a result of the 
INIT option is written regardless of any 
TRACE ON or TRACE OFF statements in the 
source module. When the value of an 
unsubscripted variable listed in the INIT 
option 
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changes, the line 


-DEBUG-variable-name = value 


is written, with the value given in the 
proper format for the variable type. When 
the value of an element of an array listed 
in the INIT option changes, the line 


~DEBUG-array~name(element-number) = value 


is written, with the format of the value 
determined by the type of the array 
element. The single element number 
subscript is used regardless of the number 
of dimensions on the array. 


SUBCHK 


SUBCHK output is not affected by TRACE 
ON and TRACE OFF statements in the source 
module. When a reference to an array 
listed in the SUBCHK option includes 
subscripts such that the reference is 
outside the array, the line 


~DEBUG-SUBCHK array-name (element-number ) 


is printed. The statement including the 
out-of-bounds reference is operated 
nonetheless. 


DISPLAY STATEMENT 





DISPLAY statement output is identical to 
NAMELIST WRITE output. The first line 
written is the name of the NAMELIST created 
by the compiler for the DISPLAY statement, 
preceded by the ampersand character: 


&DBGnn# 


where: 
nn is the 2-digit decimal value 

assigned to the DISPLAY statement; 
this value begins at 01 for the 
first DISPLAY statement in the 
source module and increases by one 
for each subsequent DISPLAY 
statement. 


The NAMELIST name is followed by the 
DISPLAY list, in NAMELIST format. The 
output is terminated with the line 


&END 
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SPECIAL CONSIDERATIONS 


Any DEBUG output which is produced 
during an input/output operation is saved 
in storage until the input or output 
operation is complete, when it is written 
out. Saving this information may require 
request for additional storage space from 
the system. If the request cannot be 
satisfied, some of the DEBUG output may be 
lost. If this situation occurs, the 
message 


~DEBUG-SOME DEBUG OUTPUT MISSING 
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is written after the output which was 
saved. 


If a subscript appearing in an 
input/output list includes a function 
reference, and the FUNCTION contains a 
DISPLAY statement, the DISPLAY cannot he 
performed. In this case the message 


-DEBUG-DISPLAY DURING I/O SKIPPED 


is written in the DEBUG output. 
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APPENDIX H: 


This appendix contains information relating 
to the use of the FORTRAN IV (H) compiler 
optimization facilities. 


PROGRAM OPTIMIZATION 


Facilities are available in the FORTRAN 
IV (H) compiler that enable a programmer to 
optimize execution speed and to reduce the 
size of the object module. However, 
programs that are compiled using the 
IBM-supplied cataloged procedures are not 
optimized; OPT=0 is the default option. A 
programmer must override this default 
option with either OPT=1 or OPT=2 to 
specify the use of the optimization 
facilities. (See “Cataloged Procedures" 
for overriding par- ameters in the EXEC 
statement.) 


When using OPT=1, the entire program is 
a loop, while individual sections of 
coding, headed and terminated by labeled 
statements, are blocks. The object code is 
improved by: 


e Improving local register assignment. 
(Variables that are defined and used in 
a block are retained (if possible) in 
registers during the processing of the 
block. Time is saved because the num- 
ber of load and store instructions are 
reduced. ) 


e Retaining the most active base 
addresses and variables in registers 
across the whole program (Retention 
in registers saves time because the 
number of load instructions are 
reduced.) 


e Improving branching by the use of RX 
branch instructions. (An RX branch 
instruction saves a load instruction 
and reduces the number of required 
address constants.) 


When using OPT=2, the loop structure and 
data flow of the program are analyzed. The 
object code is improved over OPT=1 by: 


® Assigning registers across a loop to 
the most active variables, constants, 
and base addresses within the loop. 


® Moving outside the loop many 
computations which need not be 
calculated within the loop. 
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e Recognizing and replacing redundant 
computations. 


¢ Replacing (if possible) multiplication 
of induction variables by addition of 
those variables. 


® Deleting (if possible) references to 
some variables. 


e Using (where possible) the BXLE 
instruction for loop termination. 
BXLE instruction is the fastest 
conditional branch; time and space are 
saved.) 


(The 


Programming Considerations Using the 
Optimizer 


In general, the specification of OPT=1 
or OPT=2 causes compilation time to 
increase. However, the object code 
produced is more concise and yields shorter 
execution times. 


The object module logic, when optimized, 
is identical to the unoptimized logic, 
except in the following cases: 


1. If the list of statement numbers in an 
Assigned GOTO statement is incomplete, 
errors, which were not present in the 
unoptimized code, may arise in the 
optimized code. 


2, With OPT=2, the computational 
reordering done may produce a 
different execution time behavior than 
unoptimized code. For example, a test 
of an argument of a FORTRAN library 
function may be executed after the 
call to the function. This is caused 
by the movement of the function call 
to the back target of the loop when 
the function argument is not changed 
within the loop. 


po 11 1I=1,10 
DO 12 J=1,10 
IF (B(I).LT.0.)GO TO 11 
12 C(J)=SORT(B(I)) 
11 CONTINUE 


The square root computation will occur 
before the less-than-zero test, and 
will result in a message if B(I) is 
negative. A rearrangement of the 
program which could avoid this 
situation can be constructed: 
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bo 11 I=1,10 
IF (B(I).LT.0.) GO TO 11 
DO 12 J=1,10 


12 C(J)=SORT(B(I)) 
11 CONTINUE 


A similar condition may result with 
the statements: 


CALL OVERFL(J) 
CALL DVCHK(J) 


these may produce different results 
when optimized, because computations 
causing overflow, underflow, or 
divide--check conditions could be moved 
out of the loop in which the test 
occurs. 


if a programmer defines a subprogram 
with the same name as a 
FORTRAN-supplied subprogram (e.g., 
SIN, ATAN, etc.), errors could be 
introduced during optimization. If 
the subprogram stores into its 
arguments, refers to COMMON, performs 
I/O, or remembers its own variables 
from one execution to another, the 
name of the subprogram must be 
specified in an EXTERNAL statement to 
allow the program to be optimized 
without error. 





In the statements 


COMMON X, Y1(10), W, Z@ 
EQUIVALENCE (Y¥1,Y2) 
DIMENSION ¥2(12) 


there is an implied equivalence of Y2 
(11) and W and ¥2(12) and Z. 


Tf the optimization feature is not 
used, and 
A=Y2(I) (where I=11) 


W=Q and 


then the value of Q is assigned to A. 


However, if OPT=2 is used, and 


W=Q and A=Y2(I) (where I=11) 
there is no guarantee that the value 


of Q is assigned to A. 


When a subprogram is called at one 
entry point for initialization of 
reference-by-name arguments, and at 
another entry point for subsequent 
computation, certain argument values 
may not be transmitted. This applies 
to either arguments of the second call 
or any argument values redefined 
between calls and not explicitly 
defined in COMMON. 


In the following example the 
incremented value for I may not be 
transmitted to the subprogram due to 
the loop initialization optimization. 


CALL INIT (I) SUBROUTINE INIT (/J/) 


I= 0 
10 CALL COMP 
I=It+tl 


ENTRY COMP 


GO TO 10 


6. With OPT=2, variables in named COMMON 
arrays may not be stored on exit from 
a FORTRAN main program if these 
variables have not been used in an I/0 
statement in that main program, or if 
there is no subroutine call following 
the definition of these variables. 


Definition of a Loop 


The term ‘loop’ is used to refer to DO 
loops and other configurations of coding 
that a programmer regards as a loop. 


If a programmer writes a loop which is 
preceded by an IF statement, a conditional 
GOTO statement, or READ statement with END 
or ERR parameters, the loop is not 
identified and efficiency is lost. A 
CONTINUE statement at the end of the range 
of a DO also obscures a loop (other than a 
DO loop) that follows the CONTINUE without 
intervening initialization. The insertion 
of a labeled CONTINUE statement or any 
other suitable rearrangement allows the 
loop to be recognized. 


The movement of computations from inside 
a loop to the initialization coding is done 
on the assumption that every statement in 
the loop is executed more frequently than 
the initialization coding. Occasionally, 
this assumption fails and computations are 
moved to a position where they are computed 
more often. One way to prevent such a move 
is to make a subprogram of the coding 
(statements and computations) that is 
executed less frequently within a loop than 
it would be in the initialization coding. 


The recognition of loops may also be 
obscured when the programmer knows that 
some paths through the program cannot 
occur; for example, 


10 IF (L) GOTO 200 


20 I=1 

30 ASSIGN 40 TO J 
GOTO 100 

40 I=I +1 

50 IF (I.LE.N) GOTO 30 


BCI) = FUNCT (T) 


100 

110 GOTO J, (40, 220) 
200 ASSIGN 220 TO J 
210 GOTO 100 

220 CONTINUE 


From the programmer's point of view, the 
statements 30 to 50 comprise a loop which 
is initialized by statement 20. The loop 
causes an internal subprogram consisting of 
statements 100 and 110 to be executed. 

From the compiler's point of view, it 
appears possible to execute statements in 
the order 10, 200, 210, 100, 110, 40, 50, 
30. The compiler does not recognize the 
loop, because it appears possible to enter 
it without passing through the initializa- 
tion coding in statement 20. 


A loop can be obscured by the computed 
GOTO, because the compiler always assumes 
that one of the possible branches is to the 
succeeding statement, even though the pro- 
grammer knows that such a branch is impos- 
sible. A loop can also be obscured by a 
call to the EXIT routine, because the com- 
piler assumes there is a path from such a 
statement to the next. 


Movement of Code Into Initialization of a 
Loop 





Where it is logically possible to do so 
with OPT=2, the optimizer moves computa- 
tions from inside the loop to the outside. 
This movement permits a programmer to do 
more straightforward coding without penalty 
in object code efficiency. 


If an expression is evaluated inside a 
loop and all the variables in the expres- 
sion are unchanged within the loop, the 
computation is generally moved outside the 


Table 26. Constant Expressions 

poo - — ---- - + + +--+ 
{ Expression where C1, C2,.e. 

are constant in the loop 


kK ee oe ae a a ee eee 
C3/SIN (c4) 


| cl + C2 * 

| ci + C2 * C3 + BL 

| Cl + Bl + C2 * C3 

| Bl + C1 + C2 * C3 

| Cl + Bl + B2 + C2 * C3 
| Cl * C2/B1 

L. 
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loop into the coding sequence which ini- 
tializes the loop. Even if the constant 
expression is part of a larger expression, 
this constant expression may still be rec- 
ognized and moved. However, the movement 
depends on how the larger expression is 
written. Table 26 gives examples of ex- 
pressions and the constant parts which are 
recognized and moved. 


Common Expression Elimination 


With OPT=2, if an expression occurs 
twice in such a way that: 

1. any path starting at an entry to the 
program always passes through the 
first occurrence of the expression to 
reach the second occurrence (and any 
subsequent occurrence), and 
2. any evaluation of the second (third, 
fourth, etc.) expression produces a 
result identical to the most recent 
evaluation of the first expression, 
then the value of the first expression 
is saved (generally) and used instead 
of the value of the second (third, 
fourth, etc.) expression. 


In statements such as: 


A=B + C + D 
E=c + D 


the common expression C + D is not recog- 
nized, because the first expression is con- 
puted as (B + C) + D. 


Induction Variable Optimization 


In a loop with OPT=2, an induction vari- 
able is a variable that is only incremented 
by a constant or by a variable whose value 
is constant in the loop. 


When an induction variable is multiplied 


by a constant in the loop, the optimizer 
may replace the multiplication with an 


Constant expression recognized and moved 


C1 + C2 * C3/SIN (c4) | 
Cl + C2 * C3 | 
C2 * C3 | 
C2 * C3 | 
C2 * C3 | 
Ci * C2 | 


(H) Optimization Facilities 


addition by introducing a new induction 
variable into the loop. This new induction 
variable may make it possible to delete all 
references to the original induction vari- 
able. This deletion is likely to occur if 
the original induction variable is used 
only as a subscript within the loop, and 
the value of the subscript is not used on 
exit from the loop. 


Register Allocation 


Some variables are assigned to a regis- 
ter on entry to a loop and retained in the 
register through part or all of the loop to 
avoid loading and storing the variable in 
the loop. Within the loop, the variable is 
modified only in the assigned register, the 
value of the variable in storage is not 
changed. If necessary, the latest value of 
the variable is stored after exit from the 
Loop. 


The value in general register 13, which 
points to the start of a register save 
area, remains constant during execution of 
a subprogram. This register is used to 
refer to data, and possibly to branch 
within the program. The value in general 
register 12 remains constant and is used to 
branch within the program, and possibly is 
used to refer to data. 


General registers 14 and 15 are used for 
base addresses and index values on a 
strictly local basis. Floating-point 
register 0 and general register 0 are used 
as locally assigned arithmetic accumula- 
tors. General register 1 is used in con- 
junction with general register 0 for fixed- 
point arithmetic operations, and to point 
to argument lists in subprogram linkages. 


The remaining registers are used for 
accumulators, index values, base addresses, 
and high speed storage (a register 
reference is faster than a main storage 
reference). 


Because general registers 12 and 13 are 
not adequate to provide RX branching 
throughout a large program, general regis- 
ters 11, 10, and 9 may be pre-empted for RX 
branching (only if the program exceeds 8K, 
12K, and 16K bytes, respectively). (RR 
branches preceded by loads are required for 
branching to points beyond the first 16K 
bytes of the program and possibly to the 
last part of a program if it exceeds 8K, 
12K, or 16K bytes by a small amount.) 
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COMMON Blocks 





Because each COMMON block is independ- 
ently relocatable, each requires at least 
one base address to refer to the variables 
in it. A sequence of coding that refers to 
a large number of COMMON blocks is slowed 
down by the need to load base addresses 
into general registers. Thus, if three 
COMMON blocks can be combined into one 
block whose total size is less than 4096 
bytes, one base address can serve to refer 
to all the variables. (Many register loads 
can be avoided.) 


The order in which data is entered into 
a COMMON block may also affect the number 
of base addresses needed. For example, if 
an array of 5000 bytes is placed ina 
COMMON block and followed by 200 bytes of 
variables, two base addresses are needed: 
the beginning address of the first variable 
and the beginning address of the last dif- 
fer by more than 4096 bytes. However, if 
the variables preceded the array, one base 
address would suffice. 


EQUIVALENCE Statements 


Optimization tends to be weakened by the 
occurrence of variables in EQUIVALENCE 
statements. 


When an array appears in an EQUIVALENCE 
statement, a reference to one of its ele- 
ments cannot be eliminated as a common 
expression, nor can the reference be moved 
out of a loop. However, the elimination 
and movement of subscript calculations used 
for making the reference is not affected. 


If a variable is made equivalent only to 
another variable (not in COMMON) of the 
same type and length, optimization is not 
weakened. The net effect is that the com- 
piler accepts the two names as alternate 
pointers to the same storage location. 
However, if a variable is made equivalent 
to another variable in any other way, all 
references to it are ‘immobilized': the 
references cannot be eliminated, moved, 
confined to registers, or altered in any 
way. 


Multidimensional Arrays 


In general, references to higher dimen- 
sional arrays are slower than references to 
lower dimensional arrays. Thus, a set of 
one-dimensional arrays is more efficient 
than a single two-dimensional array in any 


case where the two-dimensional array can be 
logically treated as a set of one- 
dimensional arrays. 


Constants occurring in subscript expres- 
sions are accounted for at compile time and 
have no effect at execution time. 


Program Structure 


If a large number of variables are to be 
passed among calling and called programs, 
some of the variables should be placed in 
the COMMON area. For example, in the main 
program and subroutine EXAMPL 


DIMENSION E(20),1(15) 
READ (10)A,B,C 
CALL EXAMPL(A,B,C,D,E,F, 1) 


END 


SUBROUTINE EXAMPL (X,Y¥,Z,P,Q,R,J) 
DIMENSION Q(20),J(15) 


RETURN 
END 


time and storage are wasted by allocating 
storage for variables in both the main pro- 
gram and subprogram and by the subsequent 
instructions required to transfer variables 
from one program to another. 


The two programs should be written using 
a COMMON area, as follows: 


COMMON A,B,C,D,E(20),F,1(15) 
READ(10)A, B,C 
CALL EXAMPL 


END 


SUBROUTINE EXAMPL 
COMMON X,Y,Z,P,Q(20),R,J(15) 


RETURN 
END 


Storage is allocated for variables in 
COMMON only once and fewer instructions are 
needed to cross reference the variables 
between programs. 


To reduce compilation time for 
equivalence groups, the entries in the 
EQUIVALENCE statement should be specified 
in descending order according to offset. 
For example, the statement 


EQUIVALENCE (ARR1(10,10),ARR2(5,5), 
ARR3 (1,1), VAR1) 


compiles faster than the statement 


EQUIVALENCE (VAR1,ARR3 (1,1) ,ARR2(5,5), 
ARR1(10,10)) 


To reduce compilation time and save 
internal table space, equivalence groups 
should be combined, if possible. For 
example, the statement 
EQUIVALENCE (ARR1(10,10) , ARR2 (5,5), VAR1) 


compiles faster and uses less internal 
table space than the statement 


EQUIVALENCE (ARR1(10,10),VAR1), 
(ARR2 (5,5) , VARL) 


Logical IF Statements 


A statement such as: 
IF(A. LT. Be OR. C. GT. F(X) «ORs NOT.L) GOTO 10 
is compiled as though it were written: 


IF (A .LT. B) GO TO 10 
IF (C .GT. F(X)) GO TO 10 
IF (.NOT. L) GOTO 10 


Thus, if A .LT. B is found to be true, the 
remainder of the logical expression is not 
evaluated. 


Similarly, a statement such as: 
IF (D.NE. 7.0 .AND. E.GE.G) I=J 
is compiled as: 


IF (D.EQ. 7.0) GOTO 20 
IF (E.LT.G) GOTO 20 
I=J 

20 CONTINUE 


The order in which a programmer writes 
logical expressions in an IF statement 
affects the speed of execution. 


If A is more often true than B, then 
write A .OR. B rather than B .OR. A; and 
write B .AND. A rather than A .AND. B. 


If any of the following occur in a log- 
ical expression: 


Appendix H: FORTRAN IV (H) Optimization Facilities 195 


Note: Whenever an interruption occurs on 
other models of System/360, system routines 
provide the setting of the result register 
when requested. To maintain compatibility, 
these operations are performed in the hard- 
ware of the Models 91 and 195 since the 
imprecise interruption prohibits the pro- 
gramming technique. 
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* parameter 31 

*,ddname 65 

*.stepname.ddname 65 
*.stepname.procstep.ddname 65 


A, device class 
correspondence with ddnames 41 
in DD statement 31 
with intermediate device 64 
in JOB statement 20 
ABEND dump 112 
ABSTR subparameter 99 
Accessing unused space 99 
Account numbers 17 
Accounting information 
in the EXEC statement 26 
in the JOB statement 17 
Accounting routine 17 
ACCT parameter 26 
Address, specifying space beginning at 99 
Affinity, device 98 
ALIAS statement 48 
ALX subparameter 63 
American National Standard Extended 
Carriage Control Characters 187 
AND function 92 
Argument list considerations 
Arithmetic IF statement 89 
Arithmetic Statement Functions 90 
Array 
initialization 91-92 
notation 92 
Arrays, multidimensional 194-195 
Assembler language subprograms 
argument list 146 
calling sequence 146 
example of 152 
linkage conventions 148,149 
RETURN i simulation 151 
save area 146 
subroutine references 146 
Assigning job priority 20 
Asterisk (*) parameter 31 
ATTACH macro instruction 139 
Automatic call library 46 
Average-record-length subparameter 


150-151 


62,99 


B, device class 
correspondence with ddnames 41 
in DD statement 32 
with intermediate device 64 
BACKSPACE 
restriction with SYSIN 53 
statement 70,93 
Backspace operations 70-73 
BCD compiler option 43 
BCD translation 63 
BDW 70 
Blanks, embedded 89 
BLKSIZE subparameter 65-71,93 
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Block Descriptor Word (BDW) 70 
Blocked records 
with FORMAT control 68-70 
without FORMAT control 69-70 
BLP subparameter 63 
Boundary adjustment 
in COMMON blocks 88-89 
routines (Model 91) 197 
Branching 89 


Buffers 
length of 66-67 
number of 65-66 


BUFNO subparameter 
DD statement considerations 93 
with sequential data sets 65 
specification of 65 


CALL ERRMON statement 125-126 
CALL ERRSAV statement 124 
CALL ERRSET statement 124 
CALL ERRSTR statement 124 
CALL ERRTRA statement 125 
CALL option for the loader 55 
CALL macro instruction 139 
Carriage control characters 187 
Catalog 13 
Cataloged procedures 
definition of 11-12 
invoking 12 
modifying 12 
names 12 
Cataloged procedures (G) 
compile 74 
compile and linkage edit 74-75 
compile and load 77,79 
compile, linkage edit, and execute 77 
FORTGC 
control statements 74 
function 12,37 
invoking of 37 
FORTGCL 
control statements 74 
function 12,38 
invoking of 38 
FORTGCLG 
control statements 78 
error codes 19 
function 12,39 
invoking of 39 
FORTGLG 
control statements 79 
function 12,38 
invoking of 38 
linkage edit and execute 
overriding 79-80 
user-written 77 
Cataloged procedures (H) 
compile 81 
compile and load 83,85 
execute 82-83 
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FORTHC 
control statements 82 
function 12,37 
invoking of 37 
FORTHCL 
control statements 83 
function 12,38 
invoking of 38 
FORTHCLG 
control statements 85 
error codes 19 
function 12,39 
invoking of 39 
FORTHLG 
control statements 84 
function 12,38 
invoking of 38 
linkage edit 82,84 
overriding 84-87 
user-written 83,84 
CATLG specification 35 
Chained scheduling 66,93 
Chaining records 94-95 
CHANGE statement 48 
Channel optimization 97 
Channel separation 97-98 
Column binary mode 32 
Comment statement 14-16, 36 
Comments field 15 
COMMON 
areas 118 
boundary adjustment of variables in 
88-89 
in FORTRAN (H) optimization 194 
sharing data in 150 
compiler 
data set assumptions 40-41 
ddnames 40 
main storage requirements 28,81 
names 39 
optimization 44,191-192 
options 25,41-44 
FORTRAN (G) 
BCD 43 
DECK 43 
EBCDIC 4&3 
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LINECNT 43 
LIST 43 
LOAD 43 
MAP 43,100-102 
NAME 43 
NODECK 43 
NOID 43-44 
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SOURCE 43,100 
FORTRAN (H) 
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LOAD 43 
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SOURCE 43,100 
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label map 102-103 
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source map 100-102 
restrictions 96 
statistics 165-166 
COMPL function 91,92 
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COND parameter 
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Conversion of 7-track tape 65 
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Page of GC28-6817-2, Revised 12/30/70, by TNL: GN28-0591 
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DISP 34-35 
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ddnames 40,46,49,54-55 
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restriction with SYSOUT 64 
specification 64,65 
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EDIT compiler option 37,44,81 
Embedded blanks, use of 89 
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parameters 
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Example: Assume BLKSIZE=48 and LRECL=24 
10 FORMAT(L2,F4.1,F8.4,F10.5) 
20 FORMAT(13,F9.4) 


WRITE(13,10)N,B,Q,S 











e 
WRITE(13, 20) K,Z 
-—- — BLKSIZE — —— — — —~ —~—— 7 
_ _ _ Written Block — —— — — -— —— a 
= LRECL ao ——-Lrec. - — -—- 
poe aan RAN eed = ie OR | 


1 Record ~ 4 | 
| | 
12 12 Bytes 


Data Bytes of 
Blanks 








24 Data Bytes 





Figure 37. Fixed-Length Blocked Records 
Written Under FORMAT Control 


Variable-Length Records: For blocked 
variable-length records written under FOR~ 
MAT control, LRECL is specified as four 
greater than the maximum FORTRAN record 
length, and BLKSIZE must be 4 plus an 
integral multiple of LRECL. The four addi- 
tional bytes allocated with BLKSIZE are 
required for the block descriptor word 
(BDW) that contains the block length. The 
four additional bytes allocated with LRECL 
are used for the segment descriptor word 
(SDW) that contains the record length 
indication. 


If a WRITE is executed and the amount of 
space remaining in the present buffer is 
less than LRECL, only the filled portion of 
this buffer is written (see Figure 38); the 
new data goes into the next buffer. Howev- 
er, if the space remaining in a buffer is 
greater than LRECL, the buffer is not writ- 
ten, but held for the next WRITE (see 
Figure 38). If another WRITE is not 
executed before the job step is terminated, 
then the filled portion of the buffer is 
written. 


If LRECL is omitted, its default value 
is set almost equal to the value of 
BLKSIZE. This results in having only one 
record written in any block. 

Example: Assume BLKSIZE=28 and LRECL=12 
30 FORMAT(4E3,F5.2) 
40 FORMAT(F4.1) 
50 FORMAT(F7.3) 
WRITE (12, 30)M, Z 
WRITE(12, 40)V 
WRITE (12,50)Y 


b--—-——-—— — Written Block — — — — — — — 4 





oe LRECL T 


Record 


f 
I 
| (— — — FORTRAN Record — —4 
| 


ae ah 





8 Data Bytes 


[~~~ FORTRAN Record- -4 


| I 
| 


| 
Figure 38. Variable-Length Blocked Records 
Written Under FORMAT Control 





This space of 13 bytes 


Ready for next WRITE. 
(space > LRECL) 


UNFORMATTED CONTROL 


Only variable-length records can be 
written without format control, i.e., the 
RECFM subparameter must be VS. (If nothing 
is specified, VS is assumed.} 


Records written with no FORMAT control 
have the following properties: 


e The length of the logical record is 
controlled by the type and number of 
variables in the input/output list of 
its associated READ or WRITE statement. 


® A logical record can be physically 
recorded on an external medium as one 
or more record segments. Not all seg- 
ments of a logical record must fit into 
the same physical record (block). 


e Two quantities control the manner in 
which records are placed on an external 
medium: the block size (as specified 
by the BLKSIZE parameter), and the log- 
ical record (as defined by the length 
of the I/O list). BLKSIZE is specified 
as part of the DCB parameter of the 
data definition (DD) statement. If not 
specified, FORTRAN provides default 
values. 


Each block begins with a 4-byte block 
descriptor word (BDW); each segment begins 
with a 4-byte segment descriptor word 
(SDW). The SDWs and BDWs are provided by 
the system. Each buffer begins with a 
4-byte block descriptor word (BDW). The 
SDWs and BDWs are provided by the system. 


Creating Data Sets 69 
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The format of a BDW is given in Figure 


39. 

See SERS Se Se eh oe ee ee 1 

] block-length | reserved | 

Losls Cook ee avec sete oh oe 4 
2 bytes 2 bytes 

Figure 39. Format of a Block Descriptor 

Word (BDW) 
where: 


block-length 

is a binary count of the total number 
of bytes of information in the block. 
This includes four bytes for the BDW 
pius the sum of the segment lengths 
specified in each SDW in the block. 
(The permissible range is from 8 to 
32,760 bytes.) 


reserved 
is two bytes of zeros reserved for 
system use. 


The format of an SDW is given in Figure 


40, 

foo - eo A ee Tesco o To. 1 
| segment-length | code {reserved | 
Ut a eee wee 6 Capen renee J 

2 bytes 1 byte 1 byte 
Figure 40. Format of a Segment Descriptor 
Word (SDW) 
where: 


segment-length 
is a binary count of the number of 
bytes in the SDW (four bytes) plus the 
number of bytes in the data portion of 
the segment following the SDW. (The 
permissible range is from 4 to 
32,756 bytes.) 


code 
indicates the position of the segment 
with respect to the other segments (if 
any) of the record. Bits 0 through 5 
are reserved for system use and are 


set to 0. Bits 6 and 7 contain the 
codes: 

Code Meaning 

00 This segment is not followed or 


preceded by another segment of 
the record. 


01 This segment is the first of a 
multisegment record. 

10 This segment is the last of a 
multisegment record. 

11 This segment is neither the 


first nor last of a multi- 
segment record. 


70 


reserved 
is a byte of zeros reserved for system 
use. 


Unblocked Records: For unblocked records, 
if the logical record length is less than 
or equal to the length of the block (allow- 
ing four bytes for the BDW and four bytes 
for the SDW), the block will contain the 
entire logical record. The remainder of 
the block is unused and is not transmitted. 
The next record is placed in the following 
block in the same manner (see Figure 40.1). 


If the logical record length is greater 
than the length of the block, the record is 
divided into record segments. The number 
of segments is determined from the READ/ 
WRITE statement and the BLKSIZE 
specification. Again, only the filled por- 
tion of the block is transmitted and the 
next record is placed in the following 
block (see Figure 40.2). 


Example: Assume BLKSIZE=40 


REAL*4 A,B,C,D,E,F,G,H 


WRITE(9) A,B,C,D 


WRITE(9) E,F,G,H 





Figure 40.1. 


Unblocked Records Written 
Without FORMAT Control 
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Example: Assume BLKSIZE=32 Example: Assume BLKSIZE=44 
REAL*8 A,B,C,D,E,F,G,H REAL*8 A,B,C,D 
WRITE(9) A,B,C,D WRITE(9) A,B 
WRITE(9) E,F,G,H WRITE(9) C,D 
a a a a BLKSIZE = = a] 
| _ _. _Reoord 7) =| 
! | Segment 1 | 
foc SS SS iS a BLKSIZE : — 
| 1 
{ ee Rie = al CS ee et 
| 





_ __ Record 1 
[ ~~ Segment 2 <I 





e Figure 40.3. Blocked Records Written 
Without FORMAT Control 








Record 2 


24 Data Bytes 


e Figure 40.2. Unblocked Segmented Records é 
Written Without FORMAT WRITE(9) A,B,C,D 
control 7 





Example: Assume BLKSIZE=32 


REAL*8 A, B,C,D,E,F,G,H 





WRITE(9) E,F,G,H 
Blocked Records: For blocked records, if 








the SDW), the block will contain the entire 
logical record. The next record, preceded 
by its SDW, begins in the same block (see 

Figure 40.3). BDW 24 Data Bytes 


the logical record length is less than or = BLKSIZE - 7 

equal to the length of the block (allowing is pera | 

four bytes for the BDW and four bytes for | Core eed 
| I Segment | | 
| 









Record 1._ __ oe Record’ 2. = 
‘Segment 2 i. T Segment 1 * 


| 
If the logical record is greater than = 12 Data Bytes 
the length of the block, the record is 


divided into record segments. The number 
of segments is determined from the READ/ Records 








WRITE statement and the BLKSIZE Segment 2 “a 


specification. The next record, preceded ss L 
by its SDW, begins in the same block. If 

the length of the second record exceeds the oem 20 Data Bytes 

remainder of the block it too is segmented 


(see Figure 40.4). 








e Figure 40.4. Blocked Segmented Records 
Written Without FORMAT 
Control 


Creating Data Sets 70.1 
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BACKSPACE Operations 


Unblocked Records: For all unblocked rec- 
ords written with or without FORMAT con- 
trol, the volume is positioned so that the 
last logical record read or written is 
transmitted next. 


Blocked Records: Blocked records are back- 


spaced on a logical record basis. Thus, a 
BACKSPACE may result in a deblocking opera- 


70.2 


tion rather than making available a new 
physical record. 


Note: Logical records are usually synony- 
mous with the amount of data specified in 
the I/O list for the READ or WRITE state- 
ment that processes the record. Thus, when 
there is no FORMAT control, the logical 
record may be spanned over one or more 
physical records on the volume; however, 
FORTRAN treats only the logical record as 
an entity. For records written under 


Note: Even if BOUNDRY=ALIGN is specified 
and a boundary error occurs in an EXECUTE, 
LM (load multiple), or STM (store multiple) 
instruction in a subprogram written in 
assembler language, boundary adjustment 
does not take place and the job terminates. 
Therefore, if these instructions refer to 
improperly aligned data, they should not be 
used in assembler language subprograms. 





Indicators and Sense Lights 


At the start of program execution, the 
divide-check indicator, the overflow indi- 
cator, and the pseudo sense lights are not 
initialized. Therefore, if a programmer 
intends to use the indicators or sense 
lights, he should initialize them prior to 
use; otherwise, erroneous results may be 
obtained. (For additional information, see 
the FORTRAN IV Library publication.) 


Conditional Branching 





A test for 0.0 in an IF statement is not 
recommended. Slight inaccuracies may cause 
the low-order bit(s) to be set. Therefore, 
the test for 0.0 may not yield the expected 
result. 


Arithmetic IF Statement 


A fixed-point overflow condition results 
in the following action: 


e In FORTRAN (G), if the integer is posi- 
tive, a negative branch is taken, i.e., 
the first branch. If the integer is 
negative, a positive branch is taken, 
i.e., the third branch. 


e In FORTRAN (H), the zero (middle) 
branch is always taken. 


Use of STOP _n Statement 


There are no checks made to determine if 
a value of n greater than 4095 is used in 
the STOP n statement. 4095 is the maximum 
value that can be used for n and still fit 
into the 3 digits used for the user 
condition-code. Any value of n greater 
than 4095 overflows into the system condi- 
tion code. 


Register 15 as_a_ Condition Code Register 


Register 15 is used by the compilers as 
a condition code register, a RETURN code 
register, and a STOP code register (STOP 
code = condition code). The particular 
values that Register 15 can contain and 
their explanations follow: 


16 -~ A terminal error has been detected 
during execution in a subprogram (an 
IHCxxxI message is generated). 


4*i -- A RETURN i statement has been 


executed in a subprogram (i is a 
RETURN code). 


n-- A STOP n statement has been executed 
(n is the condition code). 


0 ~~ A RETURN or a STOP statement has 
been executed in either a main pro- 
gram or a subprogram (0 is a RETURN 
code or a condition code). 


Note: Both FORTRAN (G) and (H) will gener- 
ate a STOP (i.e., O is the condition code) 
for a RETURN or RETURN i issued in a main 
program. 


Use of Embedded Blanks in FORTRAN Programs 


To improve the readability of a source 
program, the programmer may use any number 
of blanks when writing FORTRAN statements. 
Except for literal data, in which blanks 
are retained as coded in the source state- 
ment, blanks are normally ignored by the 
compilers. Thus, the statements DO 25 J = 
10 is the equivalent of DO25J=10. Both 
statements are syntactically correct as- 
signment statements and are executed as 
such, i.¢., a value of 10 is assigned to 
the variable DO25J, Neither statement will 
cause an error message. 


Use of DUMP and PDUMP 


Under the operating system, a program 
may be loaded into different areas of 
storage for different executions of the 
same job. The following conventions should 
be observed when using the DUMP or PDUMP 
subroutine to insure that the appropriate 
areas of storage are dumped. 


If an array and a variable are to be 
dumped at the same time, a separate set of 
arguments should be used for the array and 
for the variable. The specification of 
limits for the array should be from the 
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first element in the array to the last ele- 
ment. For example, if an array TABLE is 
dimensioned as: 


DIMENSION TABLE (20) 


the following statement could be used to 
dump TABLE and the real variable B in hexa- 
decimal format and terminate execution 
after the dump is taken: 


CALL DUMP (TABLE(1), TABLE(20),0,B,B, 0) 


If an area in COMMON is to be dumped at 
the same time as an area of storage not in 
COMMON, the arguments for the area in 
COMMON should be given separately. For 
example, if A is a variable in COMMON, the 
following statement could be used to dump 
the variables A and B in real format 
without terminating execution: 


CALL PDUMP (A,A,5,B,B,5) 


If variables not in COMMON are to be 
dumped, the programs should list each vari- 
able separately in the argument list. For 
example, if R, P, Q are defined implicitly 
in the program, the statement 


CALL PDUMP(R,R, 5, P, Py 5,242, 5) 


should be used to dump the three 
wariables. If 


CALL PDUMP (R, Q, 5) 


is used, all main storage between R and Q 
is dumped. 


If an array and a variable are passed as 
arguments to a subroutine, the arguments in 
the call to DUMP or PDUMP in the subroutine 
should specify the parameters used in the 
definition of the subroutine. For example, 
if the subroutine SUBI is defined as: 


SUBROUTINE SUBI(X, Y) 
DIMENSION X(10) 


and the call to SUBI within the source 
module is: 


DIMENSION A(10) 


CALL SUBI(A,B) 
then the following statement in the subrou- 
tine should be used to dump the variables 
in hexadecimal format without terminating 
execution: 


CALL PDUMP (X(1),X(10),0,Y,Y, 0) 
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If the statement 


CALL PDUMP (X(1),Y,0) 
is used, all storage between A(1) and ¥ is 
dumped, due to the method of transmitting 
arguments. (¥ does not occupy the same 
storage location as B.) 


Use of ERR Parameter in READ Statement 


Use of the optional ERR parameter for a 
READ statement can indicate the source pro- 
gram statement to which transfer should be 
made if an error is encountered during data 
transfer. When transfer has been made to 
that statement, the first subsequent READ 
in the source program provides the record 
that was in error. If this is not the 
record desired, an additional READ should 
be issued. 


If the ERR parameter is omitted from the 
READ statement, an input/output device 
error terminates program execution. 


The Arithmetic Statement Functions (ASF) 
can be used to cause selective “automatic” 
typing. For example, the ASF, 


SQRT(X) =DSORT (X) 


causes the desired function name substitu- 
tion, so that each use of SQORT(X) in an 
expression in the program will cause execu- 
tion of DSORT(X). 


To accomplish the substitution, the 
argument type(s) in the ASF should agree 
with the type of argument(s) required for 
the desired subprogram. In the example 
above, X should be typed as REAL*8.  Fur- 
thermore, the function name itself should 
be typed to agree with the function value 
type of the desired subprogram. In the 
example, SORT should be typed as REAL*8, 


FORTRAN (H) does not actually require 
that an ASF argument be typed as REAL*8, 
but because FORTRAN (G) does, it is recom- 
mended it be done for both compilers to 
ensure interchangeability. However, the 
actual argument should be REAL*8 or be 
typed to be REAL*8. 
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c 1 cr ~4 
KS ONLY| Use of ASSIGN Statement [|G ONLY| DO Loop Optimization 
------ 4 L---~--J 
The FORTRAN IV (G) compiler uses table The following discussion applies to FOR- 
entries produced in one of its phases to TRAN IV (G) only. For information on FOR- 


perform storage allocation for the 
variables defined in the source module. 
This process may result in an unusual 
amount of compilation time if a large num- 
ber of ASSIGN statements are specified in 
the source program. The use of a large 
number of ASSIGN statements should be 
avoided. 
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00G000 


000004 
000008 
ooo00c 
000010 
000014 
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TEMPORARY FOR FLOAT/F ix 


CONSTANTS 


006168 
0G010C 
006110 
000114 
oo01la 
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90 EC D 00C 
98 23 F 020 
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O7 F2 
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ADCONS FOR VARIABLES AND CONSTANTS 
ADCONS FOR EXTERNAL REFERENCES 


Object Module Listing -- 


Figure 61. 


106 


000138 
00013C 
000148 
0ev14c 
OG0O1L5G 
000154 
066158 
O0015C 
000160 
004164 
0601648 
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080116 
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Figure 61. Object Module 


OBJECT MODULE CARDS: Every card in the 


object module deck contains a 12-2-9 punch 
in column 1 and an identifier in columns 2 
through 4. The identifier consists of the 
characters ESD, RLD, TXT or END. The first 
four characters of the name of the program 
are placed in columns 73 through 76 with 
the sequence number of the card in columns 
77 through 80. 


ESD Card: Four types of ESD cards are 
generated as follows: 


contains the name of the 
program and indicates the 
beginning of the object 
module. 


ESD, type 0 - 


contains the entry point 
name corresponding to an 
ENTRY statement ina 
subprogram. 


ESD, type 1 - 


contains the names of sub- 
programs referred to in the 
source module by CALL 
statements, EXTERNAL state- 
ments, explicit function 
references, and implicit 
function references. 


ESD, type 2 - 


contains information about 
each COMMON block. 


ESD, type 5 - 


The number 0, 1, 
column 25. 


2, or 5 is placed in card 


58 FO D O8C 109 
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be XLE'00000005* 
BC Xh1*Q0000040! 
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DC XL1*00000040' 
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BAL 146 52 0,15) 
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bc XL4*Q000026E* 






oc XL4'000000B80! 






oc XL4"Q000025E' 






oc X14*80000120* A 






oc XL4"00000000" 
DG XL4*Q0000000°* 
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RLD Card: An RLD card is generated for 
external references indicated in the ESD, 
type 2 cards. To complete external 
references, the linkage editor matches the 
addresses in the RLD card with external 
symbols in the ESD card. When external 
references are resolved, the storage at the 
address indicated in the RLD card contains 
the address assigned to the subprogram 
indicated in the ESD, type 2 card. RLD 
cards are also generated for a branch list 
produced for statement numbers. 


TXT Card: The TXT card contains the con- 
stants and variables used by the programmer 
in his source module, any constants and 
variables generated by the compiler, coded 
information for FORMAT statements, and the 
machine instructions generated by the com- 
piler from the source module. 


END Card: One END card is generated for 
each compiled source module, This card 
indicates the end of the object module to 
the linkage editor, the relative location 
of the main entry point, and the length (in 
bytes) of the object module. 


OBJECT MODULE DECK STRUCTURE: Because of 

implementation, object module deck struc~ 

tures differ by compiler. Figure 62 shows 
the deck structure for the FORTRAN IV (G) 

compiler; Figure 63 shows the deck struc- 

ture for the (H) compiler. 
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Figure 62. 
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Figure 63. Object Module Deck Structure -- 


(H) Compiler 


r 1 ae 
|H ONLY| Cross Reference Listing 


L---~---J 


If the compiler XREF option is speci- 
fied, a cross reference listing of 
variables and labels is written in the data 
set specified by the SYSPRINT DD statement. 
The variable names are listed in alphabet— 
ical order, according to length. (Variable 
names of one character appear first in the 


108 


listing.) The labels are listed in ascend- 
ing sequence along with the internal state- 
ment number of the statement in which the 
label is defined. 


For both variable names and labels, the 
listing also contains the internal state- 
ment number of each statement in which the 
variable or label is used. Figure 64 shows 
a compiler cross reference listing produced 
for the program in Figure 56. 


|H ONLY (Structured Source Listing 


L-—--—-+J 





If the EDIT option is specified, a 
structured source listing is written in the 
data set specified by the SYSPRINT DD 
statement, This listing is independent of 
the usual source listing and indicates the 
loop structure and logical continuity of 
the source program. 


Each loop is assigned a unique 3-digit 
number. Entrance to the loop is indicated 
by a left parenthesis followed by a 3-digit 
loop number -+- (xxx -- before the internal 


statement number of the first statement in 
the loop; exit from the loop is indicated 
by the 3-digit loop number followed by a 
right parenthesis -- xxx) -- on a separate 
line before the next non-comment line. 










SYMBOL INTERNAL STATEMENT NUMBERS 
0005 0006 0606 32007 
000% 0065 O609 3010 oO1? 0014 


A 
] 
J O007 0008 
K 
l 






0014 vucis 






0003 0009 
0009 0010 
0005 


0010 



















LABEL DEFINED REFERENCES 
1 90lL ooce 90010 
2 0014 0010 
3 0095 00i5 
4 CO 0010 90015 
5 9013 0012 
6 0019 0018 
7 0018 0015 
a 9093 9002 
g OO17 0016 

Loc 0072 

101 0004 

102 0096 

103 oo%T 

104 0078 





105 0099 
106 0010 
107 ool2 
108 0015 
0020 








Compiler Cross Reference List- 
ing -- (H) Compiler 


Figure 64, 


Indentations are used to show dominance 
relationships among executable source 
statements. Statement A dominates state- 


ment B if A is the last statement common to 
all logical paths from which B receives 
control. Statement A is called a domina- 
tor, statement B is called a dominee. By 
this definition, a statement can have only 
one dominator, but a dominator may have 
several dominees. For example, a computed 
GO TO statement is the last statement 
through which control passes before reach- 
ing three other statements. The GO TO 
statement is a dominator with three 
dominees. 


A dominee is indented from its dominator 
unless it is either the only dominee or the 
last dominee of that dominator. The line 
of sight between a dominator and its 
dominee(s) may be obscured by intervening 
statements. This is a dominance discon- 
tinuity and is indicated by C--- ona 
separate line above the dominee. 


Comments and non-executable statements 
are not involved in dominance relation- 
ships; their presence never causes a 
dominance discontinuity. Comments line up 
with the last preceding non-comment line; 
nonexecutable statements line up either 
with the last preceding executable state- 
ment or with the first one following. 


Figure 65 shows a structured source 
listing produced for the program in Figure 
566 


Source Module Diagnostics 


FORTRAN IV (G) and (H) compiler messages 
are described in Appendix D. 


LINKAGE EDITOR OUTPUT 





The linkage editor produces a map of a 
load module if the MAP option of the PARM 
parameter of the EXEC statement is speci- 


fied, or a cross reference list and a map 
if the XREF option is specified. The 
linkage editor also produces diagnostic 
messages, which are discussed in the 


Linkage Editor and Loader publication. 


Module Map 


The module map is written in the data 
set specified in the SYSPRINT DD statement 
for the linkage editor. To the linkage 
editor, each program (main or subprogram) 
and each COMMON (blank or named) block is a 
control section. 


Each control section name is written 
along with origin and length of the control 
section. For a program and named COMMON, 
the name is listed; for blank COMMON, the 
name $BLANKCOM is listed. The origin and 
length of a control section is written in 
hexadecimal numbers, A segment number is 
also listed for overlay structures (see the 


Linkage Editor and Loader publication). 


For each control section, any entry 
points and their locations are also writ- 
ten; any functions called from the data set 
specified by the SYSLIB DD statement are 
listed and marked by asterisks. 


The total length and entry point of the 
load module are listed. Figure 66 shows, 
for the (G) compiler, a load module map 
produced for the program in Figure 56; the 
map produced for the (H) compiler is shown 
in Figure 67. 


System Output 109 





















c PRIME NUMBER PROBLEM 





















1SN 0002 106 WRITE (6,8) 
ISN 0003 & FORMAT (52H FOLLUWING IS A LIST OF PRIME NUMBERS FROM 1 TO 1000/ 
L19X¢LHL/19X, THZ/19X,1H3) 
ISN 0004 101 1=5 
(002150 0005 3 ASI 
ISW 00S 102 A=SQRT(A) 
ISN OGOT 103 J=A 
ISN 0903 104 DO 1 K=3—de2 
(v01LTSN 0009 105 L=I/K 
TSN OOL9 106 IFUL®K-L}le2e4 
TSN 0011 i CONTINUE 
vol) c 
ISN OC12 107 WRITE (6,577 
ISN 0013 5 FORMAT (120) 
ISN 0014 z l=1+2 
ISN 0015 108 IF (1000-117 9453 
v02) C 
ISN 0015 4 WRITE (6,9) 
IS 0017 9 FURMAT (14H PROGRAM ERROR) 
ISN 0013 T WRITE (6596) 
ISN 0019 6 FORMAT (31H THIS IS THE END OF THE PROGRAM) 
ISN 0029 109 STOP 
ISN 0021 END 
Figure 65, Structured Source Listing -- (H) Compiler 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME LOCATION NAME LOCATION NAME LOCATION NAME LOCATION 
MAIN 00 2E6 
MAIN 00 
THC FCOMH# 2Ea FB3 
IBCOM= 2E8 FDIOCS= BAG 
IHCSSGRT* 12A0 AC 
SQRT 12A0 
IHCFCVTH® = 1350 FEB 
ADCON= 1350 FcVzo 149C FCVAO 1542 FCOVLO 15CA 
FCVIO 1808 FCVEG 1072 FCVCO 1F6C 
IHCFIOSH* 2340 C30 
FIOCS= 2340 
THCUATBL* 2F7Q 108 
Figure 66. Load Module Map -- (G) Compiler 
CONTROL SECTION ENTRY 
NAME ORIGIN LENGTH NAME = LUCATION NAME LOCATION NAME LOCATION NAME LOCATION 
MAIN co 27c 
IHC SSORT# 280 AC 
SQRT 260 
THC FCOMH* 330 FFD 
1BCOM= 330 FOIOCS= 3EC 
IHCUOPT * 1330 8 
THCTRCH * 1338 258 
THCFCVTH*® = «1590 FF3 
ADCON= 1590 FCVZO 16UC FCVAO 1782 FCVLG 180A 
FCVIO 1818 FCVEO LFBC FCVCO 2186 
IHCFIUSH* ©2588 cF2 
FLOCS= 2568 
THCUATBL* = 3250 638 









Figure 67. 


Load Module Map -- (H) Compiler 


Cross-Reference List 





If the linkage editor XREF option of the 
PARM parameter of the EXEC statement is 
specified, a cross reference list is writ- 
ten with the module map. This cross 
reference list gives the location from 
which an external reference is made, the 
symbol externally referred to in this con- 
trol section, the control section in which 
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the symbol appears, and the segment number 
of the control section in which the symbol 
appears. Unless the linkage editor is 
building an overlay structure, the cross 
reference list appears after the module map 
for all control sections. Figure 68 shows, 
for the (G) compiler, the cross reference 
list produced for the program in Figure 56; 
the list produced for the (H) compiler is 
shown in Figure 69. 


LOAD MODULE OUTPUT 


At execution time, FORTRAN load module 
diagnostics are generated in three forms - 
error code diagnostics, program interrupt 
messages, and operator messages. An error 
code indicates an input/output error or a 
misuse of a FORTRAN library function. A 
program interrupt message indicates a con- 
dition that is beyond the capacity of 
System/360 to correct. An operator message 
is generated when a STOP or PAUSE is 
executed. 






LCCATION REFERS TO SYMBOL IN CONTROL SECTION 








IBCOM= IHCFCOMH 














04 SQRT THC SSQRT 
1134 ADCON= THCFCVTH 
112C FIOC S= IHCFIOSH 
1138 FC VEG THCFCVTH 
113C FCVLO IHCFCVTH 
1140 FCVIO THCFCVTH 
1144 FCVvco THCFCVTH 
1148 FC VAG THCFCVTH 
114C FCvzo THCFCVTH 
1324 TBCOM= THCFCCMH 
21FC IBCUM= THCFCOMH 
24E4 THC UATBL THCUATBL 
2470 IBCOM= THCFC OMH 

ENTRY AODORESS 00 






TOTAL LENGTH 3078 


Figure 68. Linkage Editor Cross Reference 
List -- (G) Compiler 


LUCATION REFERS TO SYMBOL IN CONFROL SECTION 
THCSSQRT 
THCFCOMH 
IHCFCOMH 
THCFCVTH 
THCF 1OSH 
THCUOPT 
THCFECVTH 
THCFCVTH 
THCFCVTH 
THCFCVTH 
THCFCVTH 
iHCFCVTH 
THC TRCH 
THCFCOMH 
LHCFCVTH 
THCF LOSH 
IHCFCOMH 
IHCUATBL 
THCFCOMH 


438 SQRT 
43c IBCOM= 
304 TsCoOM= 
1108 ADCON= 
1100 FLOCS= 
1GEO THCUOPT 
11iDC FCVEO 
1iE€0 FCVLO 
1164 FCVIO 
L1E8 FCVvcoO 
11EC FGVAO 
11F0 FCVZO 
1ic38 JHCTRCH 
1490 i6CGM= 
1494 ADCON= 
1498 FLOCS= 
2444 18COM= 
2680 THCUATBL 
2680 isCOM= 
ENTRY ADDRESS vd 
FOTAL LENGTH 3888 





Linkage Editor Cross Reference 
List -- (H) Compiler 


Figure 69. 


Error Code Diagnostics and Traceback 
without Extended Error Handling Message 
Facility 


If an error is detected during execution 
of a FORTRAN load module, a message and a 


diagnostic traceback are written in the 
error message data set (see “FORTRAN Job 
Processing"). The message is of the form: 


message text 
TRACEBACK FOLLOWS-ROUTINE ISN REG. 14, 
REG. 15, REG. 0, REG. 1 


These error messages are described in 
Appendix D. For the error conditions num- 
bered 211 through 214, 217, 219, 220, and 
231 through 237, the message will consist 
of only IHCxxxI where xxx is a 3-digit 
error code. The errors detected by the 
FORTRAN mathematical functions will provide 
message text describing the error condi- 
tion. The traceback, which follows the 
error message, is a list of routines in the 
direct line of call to the routine in 
error, in reverse order of use. After the 
traceback is completed, for error message 
IHC2181, control is passed to the statement 
designated in the ERR parameter of the FOR- 
TRAN READ statement if that parameter was 
specified. In all other cases, execution 
of the job step is terminated and a condi- 
tion code of 16 is returned to the operat- 
ing system. 


Each entry in the traceback contains the 
name of the called routine, an internal 
statement number (ISN) from the calling 
routine (if one was generated for that 
call), and the contents, in hexadecimal, of 
register 14 (which indicate the point of 
return to the calling routine). 


The first routine listed in the trace- 
back is the one that called the library 
subprogram in which the error occurred, 
except when the name given is IBCOM. Then, 
the error could have occurred in IHCFCOMH 
or one of the routines that it calls: 
LIHCFCVTH, IHCNAMEL, or IHCFIOSH. The error 
code in the message indicates the actual 
origin of the error. 


Note: For an assembler language program or 
subprogram, the routine name field in the 
traceback contains the identifier specified 
in the SAVE macro instruction or equivalent 
coding. (If the identifier specified is 
longer than eight characters, only the 
first eight appear.) If no identifier is 
specified, the traceback routine name field 
is either blank or its contents are mean- 
ingless in the traceback. 


Internal statement number identifiers 
are generated for function references and 
calls when the ID option is specified on 
the EXEC statement for the compile step. 
These identifiers appear in the traceback, 
except for FORTRAN calls to IBCOM for which 
no identifiers are generated. If NOID is 
specified, no identifiers are generated and 
the internal statement number field will be 
blank. 
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LHC2191 

| TRACEBACK FOLLOWS ROUTINE ISN 

| IBCOM 

| MASTR 010 
PAYROLL 


| 
ENTRY POINT = 00005000 


| 
boSa oe a a a Soe 
Sample Traceback for Execution-Time Errors 


Figure 70, 


Note: For an assembler language program or 
subprogram, the internal statement number 
field contains the value of the binary 
calling sequence identifier specified in 
the CALL macro instruction or equivalent 
coding. If no identifier was specified, 
the field is either blank or its contents 
are meaningless in the traceback. 


If the traceback cannot be completed, 
the message TRACEBACK TERMINATED is issued 
and the job step is terminated. This mes- 
sage appears only if either 13 names of 
subprograms appear in the traceback or a 
calling loop has been detected (e.g., sub- 
program A calling B calling A). 


At the end of the traceback, whether it 
was completed or not, the entry point of 
the main FORTRAN program is given in 
hexadecimal. 


Figure 70 shows the traceback informa- 
tion placed in the error message data set 
for the following example, 


Example: A FORTRAN program PAYROLL calls 
the subroutine MASTR, which contains a READ 
statement. The IHCFIOSH routine is called 
to perform the input operation, but an 
error condition arises because there is no 
DD statement for the data set. 


Explanation: PAYROLL was entered at loca- 
tion 5000 and called MASTR at internal 
statement number (ISN) 10 in PAYROLL. 
IBCOM (in this case, the error occurred in 
the IHCFIOSH routine) would have returned 
to location 68FC in MASTR; MASTR would have 
returned to location 5378 in PAYROLL and 
PAYROLL would have returned to location 
3148 in the supervisor. Execution ter- 
minates and a condition code of 16 is 
returned to the operating system. 


Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are pro- 
duced when one of the following occurs: 
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1 

REG. | 
820068FC | 
00005378 | 
00003148 | 
: 


REG. 0 
XXKXXXXX 


14 REG. 15 
XXXXXXXX 


XXXXXXXX XXXXXXXX 


Protection Exception (4) 

Addressing Exception (5) 
Specification Exception (6) 

Data Exception (7) 

Fixed-Point Divide Exception (9) 
Exponent-Overflow Exception (C) 
Exponent-Underflow Exception (D) 
Floating-Point Divide Exception (F) 


The characters in parentheses following 
the exceptions are PSW codes that appear in 
the program interrupt message to indicate 
the type of exception. Appendix D contains 
a complete description of the message and 
its format. 


The program interrupt messages are writ- 
ten on a data set specified by the pro- 
grammer. (See “FORTRAN Job Processing. "™) 
Operator intervention is not required for 
any of these interruptions. 


ABEND Dump 


If a program interrupt occurs that 
causes abnormal termination of a load 
module, an indicative dump is given (i.e., 
only the contents of significant registers, 
indicators, etc., are dumped). However, if 
a programmer adds the statement 


//GO.SYSABEND DD SYSOUT=A 


to the execute step of a cataloged proce- 
dure, main storage and significant regis- 
ters, indicators, etc., are dumped. (For 
information about interpreting an ABEND 
dump, see the Guide to Debugging 
publication.) 


Operator Messages 


A message is transmitted to the operator 
when a STOP or PAUSE is encountered during 
load module execution. Operator messages. 
are written on the device specified for 
operator communication, For a description 
of these messages, see Appendix D. 


The value associated with the STOP 
statement (0 if a value is not coded) is 
passed to the next job step and can be 
tested as a condition code by the COND 


® The program unit which receives control any program unit which it calls or whose 
at the start of processing. Usually data it must process. 
this is the main routine in which pro- 
cessing begins at the entry point named 
MAIN. Path 1 Path 2 
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e Any program units which should remain 
in main storage throughout processing. 


| | | 
For greater efficiency, subprograms | MAIN | | 
which are frequently called should also | | | 
be placed in the root segment if | H | 
possible. L-._———7——————4 t-—-—-~— 4 


| 
e Any program units containing DEFINE | | 
FILE statements. | | 
| | 
i | 


® Any automatically called FORTRAN 
library subprograms. These are placed | 
in the root segment automatically by r--———4+------4 f------ 1--———, 
the linkage editor when it processes 
the overlay program. 


l 
| | 
| SUBA | 
* Certain information which is needed by { | 
the operating system to control the | | 
overlay operation. Like the FORTRAN L_——~———.————J l————-—--——— 4 
library subprograms, this information 
is automatically included in the root eFigure 75. The Paths in the Overlay Tree 
segment by the linkage editor. in Figure 74 
Segment 1 Figure 76 shows a FORTRAN program in an 
(ROOT) overlay tree structure. The paths implied 
foro + by that structure are illustrated in Figure 
| | 77. +‘The MAIN routine and subprograms SUB1 
| MAIN | 
I | 
t_.—_,7--~4 
I Segment 1 
Segment 2 | Segment 3 (ROOT) 
pr--------------— Sepa apnea ee ee a WA 
| | | MAIN | 
| | =a 
p----1--- —--1----, | SUB1 | 
| SUBA | | SUBB rs 
t4-----—— a a {| suB2 | 
t-~-47—-~-4 
eFigure 74. Overlay Tree Structure of Three Segment 2 | Segment 6 
Program Units (--------- 4+ ~~~ 1 
| ALPHA | 
peas easat ae! eee 
{ SUB3 | | suB11 | 
PATHS b------- 4 }------- 4 
{| SUB4& | | suB12 | 
--y---4 | eeepc 4 
The relationships among the segments of | 
an overlay program are expressed in terms (7 ----------~—- 4 
of "paths". A path consists of a given | BETA | | 
segment and any segments between it and the | | | 
root segment. The root segment is thus a poo tena pent pt 7 
part of every path, and when a given seg- { SUBS [| | SUBS {| | SUB10 | 
ment is in main storage, all segments in f-------4. }------- { U------ 4 
its path are also in main storage. The | SUB6 | { SUB9 | Segment 5 
simple program in Figure 74 is made up of }-----—-- qq t&------ 4 
only two paths, as shown in Figure 75. | SUB7 | Segment 4 
bam ed 
The paths of an overlay program are Segment 3 
determined by the dependencies between the 
program units which it comprises. A pro- eFigure 76. Overlay Tree Structure Having 
gram unit is considered to be dependent on Six Segments 
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Paths Implied by Tree Structure in Figure 76 


eFigure 77. 
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and SUB2 will remain in main storage for 
the duration of execution time. They will 
occupy the root segment. The segment con- 
taining subprograms SUB3 and SUB4 will use 
the same area of main storage as the seg- 
ment containing subprograms SUB11 and 
SUB12. Likewise, the main storage area 
used by the segment containing SUB5, SUB6, 
and SUB7 will be used by the segment con- 
taining SUB8 and SUB9, as well as by the 
segment containing SUB10. Figure 78 is a 
time/storage map of the program shown in 
Figures 76 and 77. 


The structure in Figures 76 and 77 con- 
sists of segments numbered 1 through 6, 
with segment 1 being the root segment. 
Segments 2 and 6 have the same relative 
origin; that is, they will start at the 
same location when in main storage. This 
Origin has been given the symbolic name 
ALPHA by the programmer (on an OVERLAY con- 
trol card). The relative origin cf seg- 
ments 3, 4, and 5 has been given the sym- 
bolic name BETA. 


The relative origin of the root segment, 
also called the relocatable origin, is 
assigned at 0. The relative origin of any 
segment other than the root segment is 
determined by adding the lengths of all 
segments in its path, including the root 
segment. When the program is loaded for 
execution, the first location of the root 
segment (the relocatable origin of the pro- 
gram) is assigned to an absolute storage 
address. All other origins are automati- 
cally increased by the value of that 
storage address. 


COMMUNICATION BETWEEN SEGMENTS 


Overlay segments can be related to one 
another by being either inclusive or exclu- 
sive. Inclusive segments are those which 
can be in main storage simultaneously, in 
other words, those which lie in the same 
path. Exclusive segments are those which 
lie in different paths. Thus, in the pro- 
gram shown in Figures 76 and 77, segments 2 
and 5 are inclusive, while segments 2 and 6 
are exclusive. 


Main Storage 





ALPHA 

: Ponte 1 

| Segment 2 | Segment | 

| | 6 | 

| | I 

| BETA | | 

--------- r-- T------- Problem 
| | Program 
| | Area 
| l 
| 
| 

Time 0 —-- -—>n 

Figure 78. Time/Storage Map of Six Segment 


Structure 


INCLUSIVE REFERENCES 


An inclusive reference is a reference 
from a segment in main storage to a subpro- 
gram that will not overlay the calling seg- 
ment. When a CALL is made from a program 
unit in one segment to a program unit in an 
inclusive segment, control may be returned 
to the calling segment by means of a RETURN 
statement. 


When a CALL is issued in any segment to 
a subprogram which is higher (closer to the 
root segment) on the overlay tree, the 
called subprogram must return control to 
the calling segment by a RETURN statement 
before any exclusive overlay segments may 
be loaded. 
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EXCLUSIVE REFERENCES 


Exclusive references are those made in 
one segment to another segment that will 
overlay it. 


An exclusive reference is considered 
valid only if the called routine is also 
referred to in a segment common to both the 
segment to be loaded and the segment to be 
overlaid. Assume, for example, in Figure 
79 that the main program (common segment) 
contains a reference to segment A but not 
to segment B. A reference in segment B to 
a routine in segment A is valid because 
there is also an inclusive reference 
between the common segment and segment A. 
(A table in the common segment, supplied by 
the linkage editor, contains the address of 
segment A. The overlay does not destroy 
this table.) An exclusive reference in 
segment A to a routine in segment B is 
invalid because there is no reference to 
segment B in the common segment. 


Both valid and invalid exclusive 
references are considered errors by the 
linkage editor; however, by use of the LET 
or XCAL processing options described later 
in this section, the programmer can allow a 
program containing a valid exclusive 
reference to be executed. Programs con- 
taining invalid exclusive references are 
never executable. 


suranga q 
Inclusive | COMMON | 
Reference | Segment | 
ue esas Ses ik 
| 
| 
Sek Se 4——------~+--, 
| 
| 
r--~-4t----4 
I | 
[Segment B| 
| | 
eee meee pea 





Exclusive Reference 


Figure 79. Communication Between Overlay 


Segments 


OVERLAY PROCESSING 





Overlay is initiated at execution time 
in response to a reference to a subprogram 
which is not already in main storage. The 
subprogram reference may be either a FUNC- 
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TION name or a CALL statement reference to 
a SUBROUTINE name. When the reference is 
executed, the overlay segment containing 
the required subprogram. as well as any 
segments in its path not currently in main 
storage, are loaded. 


When a segment is loaded, it overlays 
any segment in storage with the same rela- 
tive origin. It also overlays any segments 
that are lower in the path of the overlaid 
segment (i.e., farther from the root seg- 
ment). For example, if segments 1, 2, and 
3 in Figures 76 and 77 are in main storage 
when the main program executes a call to 
subprogram SUB11, segments 2 and 3 will not 
be available for as long as segment 6 is in 
Main storage. 


Whenever a segment is loaded, it con- 
tains a fresh copy of the program units 
that it comprises; any data values that may 
have been established or altered during 
previous processing are returned to their 
initial values each time the segment is 
loaded. Thus, data values that are to be 
retained for longer than a single load 
phase should be placed in the root segment. 


Overlay is not initiated when a return 
is made from a subprogram, or when a seg- 
ment in main storage executes a reference 
to a subprogram that is already in main 
storage. 


COMMON AREAS 


The linkage editor treats all FORTRAN 
COMMON areas as separate subprograms. When 
modules containing COMMON areas are pro- 
cessed by the linkage editor, the COMMON 
areas are collected. That is, when two or 
more blank (unamed) COMMON areas are 
encountered in the input to the linkage 
editor, only the largest of them is 
retained in the output module. Likewise, 
when two or more named COMMON areas of the 
same name are encountered, only the largest 
of them is retained in the output module. 


In an overlay program, the ultimate 
location of blank and named COMMON areas in 
the output module depends upon which link- 
age editor control statements are used in 
the building of the overlay structure (see 
the section "Construction of the Overlay 
Program"). Overlay structures built 
without the use of INSERT statements (those 
in which the program units for each segment 
are included between OVERLAY statements) 
produce an output module in which the 
linkage editor "promotes" the COMMON areas 
automatically. The promotion process 
places each COMMON area in the lowest pos- 
sible segment on the overlay tree. The 


lowest possible segment is one that will 
always be in main storage with every seg- 
ment containing a reference to it. 


Figures 80 and 81 show an overlay pro- 
gram as it appears before and after the 
automatic promotion of COMMON areas. The 
exact position of a promoted COMMON area 
within the segment to which it is promoted 
is unpredictable. 


If INSERT statements are used to struc- 
ture the overlay program, a blank COMMON 
area should appear physically in the input 
stream in the segment to which it belongs. 
A named COMMON area either should appear 
physically in the segment to which it 
belongs, or should be placed there with an 
INSERT statement. 


COMMON areas encountered in modules from 
automatic call libraries are automatically 
promoted to the root segment. If such COM- 
MON areas are named, they can be positioned 
by the use of an INSERT statement. 


Named COMMON areas in BLOCK DATA subpro- 
grams must be at least as large as any 
identically named COMMON areas in FORTRAN 
programs that are to be link edited with 
the BLOCK DATA subprograms. 


aaa | 


| MAIN | 
| SUB1 | 
| sUB2 | 
aaa 
| 
| 
poSssesses= jReSaeaaeo 4 
{ | 
| | 
ee ea ee Mee See 
| COMMONA | | COMMONA | 
| SUB3 | | sUB11 | 
{| SUB4 | | SUB12 | 
L_-_,—-—4 bose J 
| 
\ 
pots 4---------- 1 
| l | 
| | | 
chin BR is Seowese Weertartas pare: Goueteas 
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| sUB6 | 
| suB7 | 
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Figure 80. Overlay Program Before Automat- 


ic Promotion of Common Areas 
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| SUB1 | 
| SUB2 | 
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| 
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| SUB7 | 
bee eu 4 
Figure 81. Overlay Program After Automatic 


Promotion of Common Areas 


The programmer communicates his overlay 
strategy to the operating system in two 
ways: through the use of special proces- 
sing options which he specifies in the PARM 
parameter of the EXEC statement which 
invokes the linkage editor, and through the 
use of linkage editor control statements. 
The general functions of these options and 
Statements are described in the section 
“FORTRAN Job Processing." Those which are 
of particular interest to the programmer 
constructing an overlay program are dis- 
cussed below. 


LINKAGE EDITOR CONTROL STATEMENTS 


Once the programmer has designed an 
overlay tree structure for his program, he 
places the program in that structure by 
indicating to the linkage editor the rela- 
tive positions of the segments which make 
up the tree. The control statements which 
accomplish this are placed in the input 
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stream following the //SYSIN DD* card, or 
after the //LKED.SYSIN DD* card if a cata- 
loged procedure is used. Linkage editor 
control statements have the following form: 





aaa at alae Sal a sa a aa i) 
| Operation | Operand 

}~------------------- f--=-------2--------- { 
{| verb {| operand(s) | 
Uebel ae ee bd ele ee J 


where "verb" is the name of the operation 
to be performed. The first column of all 
linkage editor control statements must be 
blank, and the operation field, which 
begins in column 2, must contain a verb. 
The operand field, which must be separated 
from the operation field by at least one 
blank, must contain one or more symbols 
separated by commas. No embedded blanks 
may appear in the operand field. Linkage 
editor control statements are placed 
before, between, or after modules in the 
input stream. They may be grouped, but 
they may not be placed, within a module. 


The most important control statements 
for implementing an overlay program are the 
OVERLAY, INSERT, INCLUDE and ENTRY state- 
ments. The OVERLAY statement indicates the 
beginning of an overlay segment. The 
INSERT statement is used to rearrange the 
sequence of object modules in the resulting 
load module(s). The INCLUDE statement is 
used to incorporate input from secondary 
sources into the load module. The ENTRY 
statement specifies the first instruction 
to be executed. 


The OVERLAY Statement 





The OVERLAY statement indicates the 


beginning of an overlay segment. Its gen- 
eral form is: 

Peete ee a eT ee ee ee 1 
} Operation | Operand | 
|-~---~------~--------4-------------------- { 
| OVERLAY | symbol | 
Merete EI RS oh eas ee Be SS eos te a 4 


where the operand "symbol" is the program- 
mer's identification of the beginning of 
the segment, that is, the symbolic name of 
the relative origin. Such symbols may be 
any group of from one through eight alpha- 
meric characters beginning with an alpha- 
betic character. 


The OVERLAY statement for a segment is 
placed in one of three places: directly 
before the object module deck for the first 
program unit of the new segment, or before 
an INSERT statement specifying the program 
units to be placed in the segment, or 


120 


by TNL: GN28-0591 


before an INCLUDE statement specifying the 
program units to be placed in the segment. 
Assuming that object module decks are 
available, the input deck to the linkage 
editor for the program in Figures 76 and 77 
could be arranged as follows: 


| ar a 1 
{MAIN | 
|SUB1 | 


object module deck 
SUB2 i 


object module deck 


OVERLAY BETA 


| ee 1 
| SUB10 


i object module deck 
beset J 


ENTRY MAIN 


The order in which the overlay segments 
are specified has nothing to do with the 
order of execution, which is determined by 
subprogram references; however, once a sym- 
bolic name has been specified for a point 
of origin, it may not be used again in the 
deck after specifications have been made 
for a point higher in the overlay tree. 
Thus, in the example above, no further seg- 
ments could be specified for load point 
BETA after the second specification for 
load point ALPHA. 


An OVERLAY statement must never be 
Placed before the root segment. 


The INSERT Statement 


There are many instances in which it is 
inconvenient or impossible for the pro- 
grammer to position object module decks 
physically in the input stream. Library 
routines, which are normally placed in the 


root segment, and routines compiled in an 
earlier step in the same job, are examples 
of program units for which the object 
module decks are not available for posi- 
tioning at the time the job is set up. 


The INSERT statement is used to position 
control sections from such program units in 
an overlay structure. A control section, 
or CSECT, is the operating system designa- 
tion for the smallest separately relocat- 
able unit of a program. Examples of FOR- 
TRAN control sections are: main programs, 
subprograms, blank and named COMMON blocks. 


The INSERT statement has the form: 


psa t SS Are er eres 7 
| Operation | Operand | 

Beecher ee 4$-—---------------- -- ~~ ------f 
| INSERT {| csectname[,csectname ...1 | 
Lees peso Soe ee ed 


where “csectname" is the name of the con- 
trol section to be positioned. Multiple 
operands, separated by commas (not blanks), 
INay be specified. 


The INSERT statement is. placed directly 
after the OVERLAY statement for the segment 
containing the control section. If the 
control section is to be positioned in the 
root segment, the INSERT statement is 
placed before the first OVERLAY statement. 


Using INSERT statements and a FORTRAN 
source deck, the overlay structure speci- 
fied in Figures 76 and 77 could be imple- 
mented as follows: 


jeri reebenanatatal ee 1 
| FORTRAN source deck| 


[containing units | 
[MAIN through SUB12 | 
Loos eS ee 4 
ENTRY MAIN 
INSERT MAIN, 
OVERLAY ALPHA 
INSERT SUB3, SUB4 
OVERLAY BETA 

INSERT SUB5, SUB6, SUB7 
OVERLAY BETA 

INSERT SUB8,SUB9 
OVERLAY BETA 

INSERT SUB10 

OVERLAY ALPHA 

INSERT SUP1i1,SUB12 


SUB1, SUB2 


If INSERT statements are used more than 
once in the same program for a control sec- 
tion of the same name, the CSECT will be 
positioned in the segment specified by the 
first occurrence of the CSECT name in the 
input stream. Any additional INSERT state- 
ments referring to the CSECT will be 
ignored and, at execution time, all 
references to the CSECT will resolve to the 
first one positioned. Thus, if a subpro- 


gram is required in more than one path, it 

must be either inserted in the root segment 
or renamed before being used with an INSERT 
statement. 


The INCLUDE Statement 


The INCLUDE statement is described in 
the section "FORTRAN Job Processing." When 
used in an overlay program, the INCLUDE 
statement is generally placed in the seg- 
ment in which the material to be iacluded 
is required. It is possible to manipulate 
the control sections which were added by an 
INCLUDE statement through the use of the 
INSERT statement. Assuming that the con- 
trol sections of the overlay program from 
the previous examples resided in libraries 
as follows: 


Pipe oe ee eee | aa | 

i LIBA | |LIBB | 
fe-e=aH= a 4 aed 
{BOOK1 |BOOK2{ |SUBS | 
tere eee |suB6 | 
[MAIN |SUB3 | |SUB7 | 
{SUB1 {[SUB4 | |SUB8 | 
jsuB2 | | |SUB9 | 
be eke | SUB10 | 
|SUB11 | 

| SUB12| 

Ld 


Then the overlay structure could be imple- 
mented by the use of the following control 
statements: 


ENTRY MAIN 

INCLUDE LIBA(BOOK1) 
INCLUDE LIBB 
OVERLAY ALPHA 
INCLUDE LIBA(BOOK2) 
OVERLAY BETA 
INSERT SUB5,SUB6, SUB7 
OVERLAY BETA 
INSERT SUB8,SUB9 
OVERLAY BETA 
INSERT SUB10 
OVERLAY ALPHA 
INSERT SUB11,SUB12 


The ENTRY Statement 





The ENTRY statement specifies the first 
instruction of the program to be executed. 
It has the form: 


Se ig cea | 
| Operation | Operand | 
~------------------- 4-------------------- 
| ENTRY | External-name | 
ae bebe eS J 


Linkage Editor Overlay Feature 


where the operand "“external-name™ must be 
the name of an instruction in the root seg- 
ment. Usually it will be the name MAIN. 


The ENTRY statement may be placed 
before, between, or after the program units 
or other control statements in the input 
stream. An ENTRY statement is necessary in 
all overlay programs because, after linkage 
editor processing, the first part of the 
root segment contains special overlay con- 
trol information rather than executable 
code. The previous examples of overlay 
implementation show the use and placement 
of the ENTRY statement. 


PROCESSING OPTIONS 


Along with the necessary linkage editor 
control statements, the programmer imple- 
menting an overlay structure must provide 
certain information to the operating system 
by means of the PARM parameter of the EXEC 
statement which invokes the linkage editor. 
This information is in the form of keyword 
parameters such as OVLY, LIST, XCAL, etc. 
Thus, the EXEC statement invoking the link- 
age editor might have the form: 


//LKED EXEC PGN=IEWL, PARM=‘OVLY, LIST, ...' 


When the linkage edit is one step (step- 
name LKED) of a compile, linkage edit, and 
execute procedure such as FORTGCLG, the 
PARM information is supplied in the EXEC 
statement for the cataloged procedure as 
follows: 


//STEP EXEC FORTGCLG, PARM. LKED="OVLY, 
LIST,...' 


When PARM is specified for a cataloged 
procedure, any processing options which 
were Originally part of the procedure are 
nullified. It is therefore good practice 
to list all desired options when PARM is 
used for the linkage editor step of such 
procedures. 


Those linkage editor processing options 


which are of special interest to the over- 
lay programmer are discussed below. 
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e The OVLY option indicates that the load 


module produced will be an overlay 
structure, as directed by subsequent 
linkage editor control statements. 
OVLY must be specified for all overlay 
processing. 


When LIST is specified, all linkage 
editor control statements will be 
listed in card image format on the dia- 
gnostic output data set, SYSPRINT. 


The MAP option instructs the linkage 
editor to produce a map of the output 
module. The map of the output module 
of an overlay structure shows the con- 
trol sections grouped by segment. 
Within each segment, the control sec- 
tions are listed in ascending order 
according to their assigned origins. 
The number of the segment in which each 
appears is also printed. 


When the XREF option is specified, the 
linkage editor produces a cross- 
reference table of the output module. 
The cross-reference table includes a 
module map and a list of all address 
constants that refer to other control 
sections. Since the cross-reference 
table includes a module map, XREF and 
MAP cannot both be specified for one 
linkage editor job step. 


When XCAL is specified to the linkage 
editor, a valid exclusive call is not 
considered an error, and the load 
module is to be marked executable, even 
though improper branches were made 
between control sections. 


When LET is specified, any exclusive 
call (valid or invalid) is accepted. 
The output module will be marked "ready 
for execution" even though certain 
error or abnormal conditions were found 
during linkage editing. At execution 
time, a valid exclusive call may or may 
not be executed correctly. An invalid 
call will usually cause unpredictable 
results; the requested segment will not 
be loaded. 


This section describes the error diag- 
nostic facilities available during program 
execution when the extended error handling 
facility has been requested at system 
generation time.+ 


The extended error handling facility 
provides the user with information about 
data-dependent or program errors detected 
in a FORTRAN program during execution. 2 
(These errors are not syntactical or 
semantic in nature.) When a data-dependent 
or program error occurs, the user is given: 


e Messages more informative than those 
issued with standard diagnostic 
facilities. 


® Traceback information more extensive 
than that provided with standard diag- 
nostic facilities. 


e Either standard FORTRAN corrective 
action with continued execution or, 
optionally, the opportunity to examine 
and alter erroneous data. 


When an error occurs with extended error 
handling in effect, a short message text is 
printed along with an error identification 
number. The data in error (or some other 
associated information) is printed as part 
of the message text. A summary error 
count, printed when a job is completed, 
informs the user how many times each error 
occurred. 


A traceback map, tracing the subroutine 
flow back to the main program, is printed 
after each error occurrence; execution then 
continues. (If the extended error handling 
facility is not specified, a traceback map 
is printed only for errors causing program 
termination and -- if the ERR= option has 
been specified in a READ statement ~~ for 
error IHC2181I.) 


For each error condition detected, the 
user has both dynamic and default control 
over: 


14This facility is requested by means of the 
OPTERR parameter of the FORTLIB macro 
instruction. For details, see the System 
Generation publication. 

2The errors detected by the extended error 
handling facility are listed in Appendix D 
under the heading “Extended Error Messages 
for Execution Errors." 





EXTENDED ERROR HANDLING FACILITY 





® The number of times the error is 
allowed to occur before program 
termination. 


® The maximum number of times each mes- 
sage may be printed. 


® Whether or not the traceback map is to 
be printed with the message. 


e Whether or not a user-written error- 
exit routine is to be called. 


The action that takes place is governed by 
information stored in an area of main 
storage called the option table. (A per- 
manent copy of the option table is main- 
tained in the FORTRAN library.) 


FUNCTIONAL CHARACTERISTICS 





When an error is detected, the FORTRAN 
error monitor (ERRMON) receives control. 
The error monitor is passed the following 
information: 


® An error identification number. 


e The text of the appropriate message to 
be printed on the object error unit. 


e A pointer to the data in the error. 


e The address of an area for a return 
code. 


The error monitor prints the necessary 
diagnostic and informative messages and 
then takes one of the following actions: 


® Terminates the job. 


e Returns control to the calling routine, 
which takes a standard corrective 
action and then continues execution. 


® Calls a user-written closed subroutine 
to correct the data in error, and then 
returns to the routine that detected 
the error, which then continues 
execution. 


The actions of the error monitor are 
controlled by settings in the option table. 
The option table consists of a doubleword 
preface, followed by a doubleword entry for 
each error condition. (If the extended 
error handling facility is not specified, 
the option table is reduced to the preface 
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alone.) iBM provides a default of 95 
entries; the programmer can provide addi- 
tional entries during system generation. 
Figures 82 and 83 describe the fields of 
the option table and list the system 
generation default values for the contents 2. 
of these fields. Table 20 shows the system 
generation default values for each error 
condition. Note that default values can be 
overridden only; they cannot be permanently 
changed. 


SUBPROGRAM FOR THE EXTENDED ERROR HANDLING 
FACILITY 


To make full use of the extended error 
handling facility, the programmer may call 
four IBM-supplied subroutines in his FOR- 
TRAN source program: ERRSAV, ERRSTR, ERR- 
SET, and ERRTRA. These subroutines allow 
access to the option table to alter it 3. 
dynamically.+ Changes made dynamically are 
in effect for the duration of the program 
that made the change. Only the current 
copy of the option table in main storage is 
affected; the copy in the FORTRAN library 
remains unchanged. All passed parameters, 
unless otherwise indicated, are 4-byte 
(fullword) integers. 


Accessing and Altering the Option Table 
Dynamically 


1. The CALL ERRSAV statement, described 
below, can be used in modifying an 
entry temporarily to save the original 
entry for later restoration. The 
statement causes an option table entry 
to be copied into an 8-byte storage 
area accessible to the FORTRAN 
programmer. 


CALL ERRSAV (ierno,tabent) 


ierno 
is an integer equal to the error 
number to be referenced in the 
option table. Should any number 
not within the range of the option 
table be used, an error message 
will be printed. 


ee ee a ee ee ee 


4certain option table entries may be pro- 
tected against alteration when the option 
table is set up. If a request is made by 
means of CALL ERRSTR or CALL ERRSET to 
alter such an entry, the request is 
ignored. (See Table 18 for which IBM- 
supplied option table entries cannot be 
altered.) 
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tabent 
is the address of an 8-byte storage 
area where the option table entry 
is to be stored. 


To store an entry in the option table, 
the following statement is used: 


CALL ERRSTR (ierno,tabent) 


ierno 
is an integer equal to the error 
number for which the entry is to be 
stored in the option table. Should 
any number not within the range of 
the option table be used, an error 
message will be printed. 


tabent 
is the address of an 8-byte storage 
area containing the table entry 
data. 


The CALL ERRSET statement, described 
below, permits the user to change up 
to five different options in an option 
table entry. A procedure for altering 
only one option without altering 
others is explained in the definition 
of the parameters. Another procedure 
is to omit the final parameter (or the 
last two or three parameters) from the 
calling sequence, or to give the value 
of zero to a parameter to indicate no 
change. 


CALL ERRSET (ierno,inoal,inomes, 
itrace, iusadr,irange) 


ierno 
is an integer equal to the error 
number to be referenced in the 
option table. Should any number 
not within the range of the option 
table be used, an error message 
will be printed. (Note that if 
ierno is specified as 212, there is 
a special relationship between the 
ierno and irange parameters. See 
the explanation for irange.) 


inoal 
is an integer specifying that 
execution be terminated when this 
number of errors has occurred. If 
inoal is specified as either zero 
or a negative number, the specifi- 
cation is ignored, and the number- 
of-errors option is not altered. 
If a value of more than 255 is 
specified, an unlimited number of 
errors is permitted. 


inomes 
is an integer indicating the number 
of messages to be printed. A nega- 
tive value specified for inomes 
causes all messages to be sup- 


Table 22. 
[npn nner 
| 
| 
Error | FORTRAN 
code | Reference 
rae Seeene ee ee ee 
274 | Z=CSIN (Cc) 
| z=ccos (c) 
| 
275 | Z=CSIN (Cc) 
| 
! 
{ z=ccos (c) 
| 
| Z=CSIN (Cc) 
| 
| z=ccos (c) 
{ 


RRR EAA KEE AEE ERE EKER EKA EKEERERREREEKHEEBSE SEEKER HKEEKEREEKEE EE EKEREREREREEREREEEEESEEEERERE 


4 


—— ee ww ee ee 


Z=*(COS X,+iSIN X,) 
2 


Corrective Action After Mathematical Subroutines Error Occurrence (Part 3 of 3) 


SSS ee ee ee en ee ee ee en 
| Options | 
}---------------------- q-~-----=--------=--=----—- { 

Invalid ! Standard | User-Supplied | 
Argument | Corrective | Corrective Action | 
Range | Action | (See Note 1) | 
oe es | i.) 
[X4 | 2229 | Z=0+0i | c | 
| | | 

X2>174.673 | Z=*(SIN X,+icoS X,) | c | 
1 2 | | 

| | | 

| Z=*(COS X,-iSIN X,) i c | 

bee | ! 

X2<-174.673 | Z=*(SIN X,-iCcOS x,) | c | 
[ 2 | | 

| | { 

| | c | 

l l | 

| 


For errors 281 through 285, CD=X,+iXa 


BREESE EEE EERE SEE EERE EERE EEKREKERERES EEE REREREREREREEKEEEKEE EEE EREEEKEEKEEESEKERE REESE ERE 





Complex variables to be given the length of the functioned argument when they appear 


Z=*(COS X2tiSIN Xo) 
Z=0+0i 
=—#*+ OF 


Z=0+40i. 

eee ean X4t+icos X,) 
BES (C08 X,-iSIN X,) 
eS erk Xa~icos X4) 
erates X4+iSIN X,) 


Y=* 


281 | Z=CDEXP (CD) | X4>174.673 
I | | 
282 | Z=CDEXP (CD) | [X2]2250# | 
| | | 
283 | Z=CDLOG (cD) [| CD=0+0i | 
I l | 
284 | Z=CDSIN (CD) |] [Xs | 225° | 
| z=cpcos (CD) ] | 
| I I 
285 | Z=CDSIN (CD) | X2>174.673 | 
| | l 
| l | 
{ z=cbcos (cD) | | 
{ | | 
| { | 
| Z=CDSIN (CD) | X2<-174.673 | 
I | | 
I I { 
| z=cDcos (cD) | | 
| | | 
| l | 
290 | Y=GAMMA (X) | Xs27252 or | 
| | X257.5744 { 
| l | 
291 | Y=ALGAMA (xX) | Xs0O or | 
| | X24, 2937*10753 | 
{ | | 
300 | DA=DGAMMA (D) | Ds2-252 or | 
| | D257.5774 | 
| | | 
301 { DA=DLGAMA (D) | DsO or [ 
| | D24.2937*1073 | 
ao a le a ee 
ariable Type 
J Variables of INTEGER*4 
, XA, Y Variables of REAL#*4 
, DA, DB Variables of REAL*8 
,CA Variables of COMPLEX*8 
0XaeX%o E 
Variables of COMPLEX*16 
otes: 1. 
set by the user routine for the parameters listed. 
2. 


cD 


cD 


cD 


cD 


cD 


cD 


cD 


cD 


| 
i 
| 
I 
| 
I 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
l 
l 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
| 
{ 


ele eee ere ee een ee nee ere able 


The user-supplied answer is obtained by recomputation of the function using the value| 


The largest number that can be represented in floating point is indicated above by mel 


i a a as es a et a a a a SS i a a i a ne a wi rc co eg ta ee E, 
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*Table 23. Corrective Action After Program Interrupt Occurrence 


aa ne et ae aaa ac SS ee a) 
{ Program Interrupt Messages | Opticns | 
}-----7-~--~-----7----- --- —------ ------------ 4—-~—-—--- +--+ +~--~------- -“y--------------- 
| | Parameters | l | User-Supplied | 
{Error|Passed to | | | Corrective | 
[Code |User Exit | Reason for Interrupt+ |Standard Corrective Action | Action { 
|-----4-------- +-}------------—------------- +----~---- ~---+------------- +--------------- 4 
207 D,1 {Exponent overflow |Result register set to the |User may alter 
| (Interrupt Code 12) [largest possible floating [D.? 


{point number. The sign of | 
[the result register is not | 


mine the amount of the underflow or overflow. The 
value in I is not the true exponent, but what was 
left in the exponent field of a floating point number 
after the interrupt. 


4A program interrupt occurs asynchronously. Interrupts are described in IBM System/360| 
Operating System: Principles of Operation, Form A22-6821. 


{ | | 
| | | 
| | l 
| | | 
| | [altered. | { 
| { | | | 
| 208 | D,Lr {Exponent underflow |The result register is set |User may alter | 
| | {(Interrupt Code 13) [to zero. [D.2 { 
| | | I 
| 209 | D,I* [Divide check, Integer |There is no standard fixup.[See Note 5. | 
| | [divide (interrupt Code 9), {Result registers are not | { 
] | [Decimal divide (Interrupt |touched. | | 
| | [Code 11), Floating point | | | 
| | [divide (Interrupt Code | | H 
| | }15).9 I I I 
| l | { | | 
{| 210 | None [Specification interrupt [No special corrective |See Note 5. | 
| | | (Interrupt Code 6) occurs |action other than correct- | l 
{ | |for boundary misalignment. |ing boundary misalignments. | I 
| | {Other interrupts occur | | | 
| | [during boundary alignment | | | 
| { fadjustment. They will be | | | 
] | {shown with this error codej | | 
i] | Jand the PSW portion of the] l | 
i] | {message will identify the | | | 
| | {interrupt. { | | 
wet Sa SS a ee ee We oS ee ee oe BSS ae, 4 
Variable Type Description | 
D A variable REAL*8 This variable contains the contents of the result | 
register after the interrupt. | 

I A variable INTEGER#*4 This variable contains the “exponent"™ as an integer | 

| 

{ 

| 

| 

| 


| 
| 
| 
| value for the number in D. It may be used to deter- 
| 
{ 
| 
| 


| 

| 

|2The user exit routine may supply an alternate answer for the setting of the result 

| register. This is accomplished by placing a value for D in the user-exit routine. 

| Although the interrupt may be caused by a long or short floating-point operation, the 
| user~exit routine need not be concerned with this. The user-exit routine should 

| always set a REAL*8 variable and the FORTRAN library will load short or long depending 
| upon the floating-point operation that caused the interrupt. 
| 
| 
l 
| 
| 
| 
I 


3For floating-point divide check, the contents of the result register is shown in the 
message. 


“For integer and decimal divide checks, no parameters are passed to the user exit 
routines. 


{*The user-exit routine does not have the ability to change result registers after a 
| divide check. The boundary alignment adjustments are informational messages and there 
| is nothing to alter before execution continues. 
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//OPTAB JOB 1,'SAMPLE MACRO' ,MSGLEVEL=1 “CREATE IHCUOPT 


7/VER1 EXEC ASMFC,PARM.ASM=NODECK 
//ASM.SYSIN DD * 
MACRO 
PREFACE 6ADENT,6ADJST, 6SETENT 
.* THIS MACRO GENERATES THE PREFACE TO THE OPTION TABLE AND SETS 
.»*  GLOBALS FOR SUBSEQUENT CALLS TO THE SETENT MACRO 
»* THE USE OF THIS MACRO GENERATES AN OPTION TABLE AS DEFINED BY IBM 
-* AND ALLOWS CHANGES TO INDIVIDUAL ERROR NUMBERS AS DESIRED, BY USE 
.~* OF SETENT 
GBLA &6COUNT, &TOTAL, 6SETNR 
LCLA 6A 
IHCUOPT CSECT 
6SETNR SETA 6SETENT 
sCOUNT SETA 207 ERROR NUMBER OF FIRST ENTRY IN TABLE 
6TOTAL SETA &ADENT+301 NUMBER OF LAST ENTRY IN TABLE 
&A SETA &ADENT+95 
pc F'sa' TOTAL NUMBER OF ENTRIES IN TABLE 
pe B'Q€ADJST.000000' 
pe AL3 (0) 
MEND 
MACRO 
SETENT 6E 
GBLA &COUNT, ETOTAL, &SETNR 
LCLA &B 
&B SETA 1 
&6SETINR SETA 6SETNR-1 
«AGAIN ANOP START OF LOOP TO GEN ONE ENTRY IN TABLE FOR ERROR NUMBER 
AIF  (&COUNT GT 6TOTAL).MEND HAVE ALL ENTRIES BEEN CREATED 
AIF (&B LE N'&SYSLIST) .TEST 
AIF (6SETNR EQ 0).DEFAULT 
MEXIT 
«TEST ANOP 


.* IF THERE IS NO USER SUPPLIED INFO FOR THIS ERROR NO TAKE DEFAULT 
AIF (§SYSLIST(&B,1) NE SCOUNT) .DEFAULT 

ERRECOUNT DC AL1(&SYSLIST(&B,2)) NUMBER OF ERRORS TO ALLOW FR SETENT 
DC AL1(&SYSLIST(&B,3)) NO OF MSGS TO PRINT FROM SETENT 


Dc xtoo! 
Dc X'6SYSLIST(6B,4)' OPTION BITS SUPPLIED BY SETENT 
pc F't! 
6COUNT SETA &COUNT+1 
6B SETA 6B+1 
AGO .AGAIN RETURN TO LOOP 


»DEFAULT ANOP IBM DEFAULTS FOR ERRORS NOT INDICATED BY SETENT 
* IBM SPECIAL CASES FOR MESSAGE COUNT 


AIF  (&COUNT EQ 208).UNLIM 
AIF  (&COUNT EQ 210).UNLIM 
AIF (SCOUNT EQ 215).UNLIM 
AIF (GCOUNT EQ 217) .ONE 
AIF (&COUNT EQ 230).ONE 

ERR&COUNT DC AL1(10) 

»BACK?  ANOP 
pc AL1(5) 

+BACK2 ANOP 
pe x'oo! 

.* IBM SPECIAL CASES FOR OPTION BITS 
AIF (ECOUNT EQ 212).SPBITS 
AIF (&COUNT EQ 215).SPBITS 
AIF  (&COUNT EQ 218).SPBITS 
AIF (COUNT EQ 221) .SPBITS 
AIF (€&COUNT EQ 222).SPBITS 
AIF (&COUNT EQ 223).SPBITS 
AIP (COUNT EQ 224).SPBITS 
AIF (ECOUNT EQ 225).SPBITS 
pe X42" 
AGO  .CONT 

»SPBITS DC X'52! 

CONT ANOP 
bc F'tt 

sCOUNT SETA &sCOUNT+1 
AGO .AGAIN RETURN TO LOOP 

~UNLIM ANOP 

ERR6COUNT DC AL1(0) 
AIF (COUNT NE 210).BACK1 
pc AL1(10) 
AGO. BACK2 

. ONE ANOP 

ERRECOUNT DC AL1(1) 


poles AL1(1) 


AIF  (&COUNT EQ 217) .BACK2 
pc x'00! 
DC x'o2' 
AGO. CONT 
.MEND ANOP 
MEND 
* END OF MACRO DEFINITION 
* 
: EXAMPLE OF THE USE OF THE MACRO 
PREFACE 50,1,2 
SETENT (220,5,2,21),(235,10,5,42) ,(255,2,0,4) 
SETENT (300,56,65,3) 
END 
A* 


END OF DATA 





Figure 84. Example of Assembler 


Language Macro Definition Used To 


Extended Error 





Generate Option Table 
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//SAMPLE JOB 1,SAMPLE, MSGLEVEL=1 
//STEP1 
//FORT.SYSIN DD * 





EXEC FORTHCLG 


MAIN PROGRAM THAT USES THE SUBROUTINE DIVIDE 
COMMON E 
EXTERNAL FIXDIV 
SET UP OPTION TABLE WITH ADDRESS OF USER EXIT 
CALL ERRSET (302,30,5,1,FIXDIV) 
E=0 
GET VALUES TO CALL DIVIDE WITH 
READ (5,9)A,B 
IF (B) 1,2,1 
E=1.0 
CALL DIVIDE (A,B,C) 
WRITE (6,10)C 
FORMAT (2E20.8) 
FORMAT ('1',E20.8) 
STOP 
END 
SUBROUTINE DIVIDE(A,B,C) 
ROUTINE TO PERFORM THE CALCULATION C=A/B 
IF B=0 THEN USE ERROR MESSAGE FACILITY TO SERVICE ERROR 
PROVIDE MESSAGE TO BE PRINTED 
DIMENSION MES (4) 
DATA MES (1)/12/,MES(2)/' DIV'/,MFS(3)/'3021/,MFS(4)/' B=0'/ 
DATA RMAX/Z7FFFFFFF/ 
MESSAGE TO BE PRINTED IS 
DIV302I B=0 
ERROR CODE 302 IS AVAILABLE AND ASSIGNED TO THIS ROUTINE 
STEP1 SAVE A,B IN LOCAL STORAGE 
D=A 
E=B 
STEP2 TEST FOR ERROR CONDITION 
IF(E) 1,2,1 
NORMAL CASE -- COMPUTE FUNCTION 
C=D/E 
RETURN 
STEP3 ERROR DETECTED CALL ERROR MONITOR 
CALL ERRMON (MES , TRETCD, 302,D,E) 
STEP 4 BE READY TO ACCEPT A RETURN FROM THE ERROR MONITOR 
IF(IRETCD) 5,6,5 
IF IRETCD=0 STANDARD RESULT IS DESIRED 
STANDARD RESULT WILL BE C=LARGEST NUMBER IF D IS NOT ZERO 
CR C=0 IF E=0 AND D=0 
IF(D) 7,8,7 
c=0.0 
GO TO 9 
C=RMAX 
RETURN 
USER FIX UP INDICATED, RECOMPUTE WITH NEW VALUE PLACED IN E 
GO TO 100 
END 
SUBROUTINE FIXDIV(IRETCD,INO,A,B) 
THIS IS A USER EXIT TO SERVE THE SUBROUTINE DIVIDE 
THE PARAMETERS IN THE CALL MATCH THOSE USE IN THE CALL TO 
ERRMON MADE BY SUBROUTINE DIVIDE 


STEP1 IS ALTERNATE VALUE FOR B AVAILABLE ~~ MAIN PROGRAM 


HAS SUPPLIED A NEW VALUE IN E. IF E=0 NO NEW VALUE IS AVAILABLE 
COMMON E 

IF(E) 1,2,1 

NEW VALUE AVAILABLE TAKE USER CORRECTION EXIT 

B=E 

RETURN 

NEW VALUE NOT AVAILABLE USE STANDARD FIX UP 

TRETCD=0 

RETURN 

END 


//GO.SYSIN DD * 


0.1E00 0.0E00 





eFigure 85. Sample Program Using Extended Error Handling Facility 
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FORTRAN can be invoked by a problem pro- 
gram through the use of the CALL, ATTACH, 
or LINK macro instructions. 


The program must supply to the FORTRAN 
compiler: 


e The information usually specified in 
the PARM parameter of the EXEC 
statement. 


e The ddnames of the data sets to be used 
during processing by the FORTRAN 
compiler. 


ho ea ee Seas S Sess 1 
[Name | Operation |Operand l 
| 
pea (roe \ { EP=compiler-—name, 

| [\ATTACH/ | PARAM=(optionaddr | 

| (, ddnameaddr]), VL=1 


ITEKAAOO, (optionaddr 
{, ddnameaddr]) , VL 


compiler-name 
specifies the program name of the com- 
piler to be invoked. IEYFORT is spec- 
ified for FORTRAN IV (G); IEKAAOO, for 
FORTRAN IV (H). 


optionaddr 
specifies the address of a variable 
length list containing information 
usually specified in the PARM parame- 
ter of the EXEC statement. 


The option list must begin on a half- 
word boundary. The two high-order 
bytes contain a count of the number of 
bytes in the remainder of the list. 

If there are no parameters, the count 
must be zero. The option list is free 
form with each field separated by a 
comma. No blanks should appear in the 
list. 
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ddnameaddr 
specifies the address of a variable 
length list containing alternate 
ddnames for the data sets used during 
FORTRAN compiler processing. This 
address is supplied by the invoking 
program. If standard ddnames are 
used, this operand may be omitted. 


The ddname list must begin on a half- 
word boundary. The two high-order 
bytes contain a count of the number of 
bytes in the remainder of the list. 
Each name of less than eight bytes 
must be left justified and padded with 
blanks. If an alternate ddname is 
omitted from the list, the standard 
name is assumed. If the name is 
omitted within the list, the 8-byte 
entry must contain binary zeros. 

Names can be completely omitted only 
from the end of the list. 


The sequence of the 8~byte entries in 
the ddname list is as follows: 


Alternate Name 
SYSLIN 


00000000 
00000000 
00000000 
SYSIN 
SYSPRINT 
SYSPUNCH 
SYSUT1 
SYSUT2 


ti 
3 
ce vousvnnl 


VL=1 or VL 


specifies that the sign bit of the 
last full-word of the address parame- 
ter list is to be set to 1. 
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APPENDIX B: EXAMPLES OF JOB PROCESSING 


The following examples show several 
methods to process load modules. 


Example 1 


Problem Statement: A previously created 
data set SCIENCE.MATH.MATRICES contains a 
set of 80 matrices. Each matrix is an 
array containing real*4 variables. The 
size of the matrices varies from 2x2 to 
25x25; the average size is 10x10. The 
matrices are inverted by a load module 
MATINV in the library MATPROGS. Each 
inverted matrix is written (assume FORMAT 
control) as a single record on the data set 
SCIENCE. MATH.INVMATRS. The first variable 
in each record denotes the size of the 
matrix. 


— 














SCIENCE, SCIENCE. 
MATH, a MATINV MATH. 
MATRICES INVMATRS 










Printed 
Output 






Figure 86. Input/Output Flow for Example 1 


The I/O flow for the example is shown in 
Figure 86. The job control statements used 
to define this job are shown in Figure 87. 






Explanation: The JOB statement identifies 
the programmer as JOHN SMITH and supplies 
the account number 537. Control statements 
and control statement error messages are 
written in the SYSOUT data set. 


The JOBLIB DD statement indicates that 
the private library MATPROGS is concate- 
nated with the system library. 


The EXEC statement indicates that the 
load module MATINV is executed. 


DD statement FTO8F001 identifies the 
input data set, SCIENCE. MATH. MATRICES. 
(Data set reference number 8 is used to 
read the input data set.) Because this 
data set has been previously created and 
cataloged, no information other than the 
data set name and disposition has to be 
supplied. 


DD statement FT10F001 identifies the 
printed output. (Data set reference number 
10 is used for printed output.) 


DD statement FTO4F001 defines the output 
data set. (Data set reference number 4 is 
used to write the data set containing the 
inverted matrices.) Because the data set 
is created and cataloged in this job step, 
a complete data set specification is 
supplied. 


The DSNAME parameter indicates that the 
data set is named SCIENCE. MATH. INVMATRS. 
The DISP parameter indicates that the data 
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Figure 87. Job Control Statements for Example 1 
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set is new and is to be cataloged. The 
SPACE parameter indicates that space is 
reserved for 80 records, 408 characters 
long (80 matrices of average size). When 
space is exhausted, space for 9 more rec- 
ords is allocated. The space is contig- 
uous; any unused space is released, and 
allocation begins and ends on cylinder 
boundaries. 


The DCB parameter indicates variable- 
length records, because the size of 
matrices vary. The record length is speci- 
fied as 2504, the maximum size of a 
variable-length record. (The maximum size 
of a record in this data set is the maximum 
number of elements (625) in any matrix mul- 
tiplied by the number of bytes (4) allo- 
cated for an element, plus 4 for the seg- 
ment control word (SCW) that indicates the 
count of the number of data bytes contained 
in the record.) The buffer length is spec~ 
ified as 2508 (the 4 bytes are for the 
block control word (BCW) that contains the 
length of the block). 


The SEP parameter indicates that read 
and write operations should take place on 
different channels. 


Example 2 


Problem Statement: A previously created 
data set RAWDATA contains raw data froma 
test firing. A load module PROGRD refines 
data by comparing the data set RAWDATA 
against a forecasted result, PROJDATA. 
output of PROGRD is a data set &REFDATA, 
which contains the refined data. 





The 


The refined data is used to develop 
values from which graphs and reports can be 
generated. The load module ANALYZ contains 
a series of equations and uses a previously 
created and cataloged data set PARAMS which 
contains the parameters for these equa- 
tions. ANALYZ creates a data set &VALUES, 
which contains intermediate values. 


These values are used as input to the 
load module REPORT, which prints graphs and 
reports of the data gathered from the test 
firing. Figure 1 in the "Introduction" 
shows the I/O flow for the example. Figure 
88 shows the job control statements used to 
process this job. 


The load modules PROGRD, ANALYZ, and 
REPORT are contained in the private library 
FIRING. 


Explanation: The JOB statement indicates 
the programmer's name, JOHN SMITH, and 
specifies that control statements and con- 


trol statement error messages are written 
in the SYSOUT data set. 


The JOBLIB DD statement indicates that 
the private library FIRING is concatenated 
with the system library. 


The EXEC statement STEP1 defines the 
first job step in the job and indicates 
that the load module PROGRD is executed. 


The DD statements FT10F001 and FT11F001 
identify the data sets containing raw data 
(RAWDATA) and the forecasted result 
(PROJDATA), respectively. 


DD statement FT12F001 defines a tem- 
porary data set, &REFDATA, created for 
input to the second step. (In the load 
module, data set reference number 12 is 
used to write &REFDATA.) The DISP parame- 
ter indicates that a data set is new and is 
passed. The data set is written using the 
device class TAPECLS. The VOLUME parameter 
indicates that the volume identified by 
serial number 2107 is used for this data 
set. The DCB parameter indicates that the 
volume is written using high density; the 
records are fixed-length with FORMAT con- 
trol and the buffer length is 400. 


The EXEC statement STEP2 defines the 
second job step in the ‘job and indicates 
that the load module ANALYZ is executed. 


DD statement FT17F001 identifies the 
data set which contains refined data. The 
DISP parameter indicates that the data set 
is deleted after execution of this job 
step. The DD statement FT18F001 identifies 
the previously created and cataloged data 
set PARAMS. 


DD statement FT20F001 defines the tem- 
porary data set VALUES containing the 
intermediate values. The DISP parameter 
indicates that the data set is created in 
this step, and that it is passed to the 
next job step. The data set is written on 
volume 2108 using one of the devices 
assigned to the class TAPECLS. The DCB 
parameter indicates high density and fixed- 
length blocked records (written under 
FORMAT control). Each record is 204 char- 
acters long. 


The EXEC statement STEP3 defines the 
third job step and indicates that the load 
module REPORT is executed. DD statement 
FTO8F001 identifies the data set containing 
intermediate values. 


DD statement FTO6FO01 indicates that the 
data set reference number 06 is used to 
print the reports and graphs for job step 
three, 
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Sample Coding Form 
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Figure 88. Job Control Statements for Example 2 
Example 3 


A data set has been created that con- 
tains master records for an index of stars. 
Each star is identified by a unique 6-digit 
star identification number. Each star is 
assigned a record position in the data set 
by truncating the last two digits in the 
star identification number. Because 
synonyms arise, records are chained. 


Problem Statement: Figure 89 shows a block 
diagram illustrating the logic for this 
problem. 


A card 
stream is 
data set. 
this data 


data set read from the input 
used to update the star master 

Each record (detail record) in 
set contains: 


The star identification field of the 
star master record that the detail 
record is used to update. 


1. 


Six variables that are to be used to 
update the star master. 
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The following conventions must be 
observed in processing this data set: 


The star master record that contains 
the record location counter pointing 
to space reserved for chained records 
is assigned to record location 1. 


A zero in the chain variable indicates 
that the end of a chain has been 
reached. 


The first variable in each star master 
record is the star identification 
field; the second variable in each 
star master is the chain variable. 


Each record contains six other 
variables that contain information 
about that star. 







Read Star 
Master 


Record 
No.1 







Read Star 
Detail 
Record 










Write Star 
Master 
Record 






Ident 
in Star Detail 
=999999 











Randomize Star 
Number to a 
Record Location 





Read Star 
Master 
Record 


Write Star 
Master 
Record 










Ident 
in Star Detail = 
Ident in Star 
Master 







Update 
Variable in 
Star Master 


Set Record Position 
in Read Statement 









= Chain Variable 








Chain 
Variable in 
Master = 





Set Chain 
Variable = Record 
Location Counter 

















Write 
Master 
Record 


Set Record Position 
in Write Statement 
= Record 
Location Counter 





Increment 
Record Location 
Counter by 1 





Build Star 


























Master Record 


Figure 89. Block Diagram for Example 3 


When a star detail record is read, its 
identification field is randomized, and the 
appropriate star master record is read. If 
the correct star master record is found, 
the record is to be updated. If a star 
master is not found, then a star master 
record is to be created for that star. 


The last record in the star detail data 
set contains a star identification number 
999999 which indicates that processing the 
star detail data set is completed. 


Explanation: Figure 89 is similar to the 
diagram shown in Figure 53 except Figure 89 
includes blocks that describe updating 
variables in master records already present 
in the data set. (Figure 53 includes 
blocks describing certain operations that 
must be performed when a direct access data 
set is first written.) Also, Figure 89 is 
adapted to Example 3, while Figure 53 is 
more general. Figure 91 shows the FORTRAN 
coding for this program. 


The star master record that contains the 
record counter is read, placing the record 
location counter in LOCREC. Whenever a 
detail record is read, the identification 
variable is checked to determine if the end 
of the detail data set has been reached. 
The star detail records contain the 
variables A, B, C, D, E, and F. 


The identification number in the detail 
record is randomized and the result is 
placed in the variable NOREC, which is used 
to read a master record. The master record 
contains the star identification number 
(IDSTRM), a chain record location (CICHAIN), 
and six variables (T, U, V, X, Y, and 2) 
which are to be updated by the variables in 
the star detail records. IDSTRM and IDSTRD 
are compared to see if the correct star 
master is found. If it is not found, then 
the variables containing the chain record 
numbers are followed until the correct star 
master is found or a new star master is 
created. 


Job Control Statements: The program shown 


in Figure 91 is compiled and link edited, 
placing the load module in the PDS STARPGMS 
and assigning the load module the name 
UPDATE. The data set that contains the 
star master records was cataloged and 
assigned the name STARMSTR when it was 
created. Figure 90 shows the job control 
statements needed to execute the module 
UPDATE. 
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Sample Coding Form 
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Figure 90. Job Control Statements for Example 3 
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Note: The values shown above for LOGICAL variables are those assigned for the current 
implementation of the FORTRAN IV (G) and (H) compilers. The assembler language programn- 
er should not assume these values for future versions of either the (G) or (H) compilers, 
since both compilers are subject to change. 


The DUMP or PDUMP subroutine can also be used as an additional tool for understanding 
the object-time representation of FORTRAN data. Refer to the "Use of DUMP and PDUMP" 
section in the “Programming Considerations" chapter of this publication or consult the 
FORTRAN IV Library Subproqrams publication. 
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Note: 


suggested operator or programmer response. 
FORTRAN IV _(G) COMPILER DIAGNOSTIC MESSAGES 


Two types of compiler diagnostic 
messages are generated -- error/warning and 
status. 


The error/warning messages produced by 
the compiler are noted on the source 
listing immediately after the statement in 
which they occur. A maximum of four 
messages appears on each line. Figure 97 
illustrates the format of the messages as 
they are written in the data set specified 
by the SYSPRINT DD statement. 


There are two types of error/warning 
messages: serious error messages, and 
warning messages. The serious error 
messages have a condition code of 8 and the 
warning messages a code of 4 or 0. 


Status messages are produced during the 
operation of the compiler. Most indicate 
termination of compilation resulting from 
internal compiler errors. 


|XX = A+B+-C/ (X**3-A**-75) 

| $ $ 

jn) y message, n) y message 

| 
|Where: n is an integer noting the ordi- 


nal occurrence of the error on 
each card. 


y is a 1- to 3-digit message num- 
ber in IEYxxxI format. 


compiler for flagging the 
particular error in the 
statement. (This symbol is 
usually noted on the line 
following the source statement 
and may appear at various 
points beneath the error 
Statement depending on the type 
of error.) 


message is the actual message 
printed 


Figure 97. Format of Diagnostic Messages 
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APPENDIX D: SYSTEM DIAGNOSTICS 


This appendix contains a detailed description of the diagnostic messages produced 
during compilation and load module execution. 


The description of each message includes a 


Error/Warning Messages 


The following text contains a 
description of error/warning messages 
produced by the compiler. The message is 
shown with an explanation. 


TEYO001I ILLEGAL TYPE 


Explanation: The type of a 
constant, a variable, or an 


expression is not correct for its 
usage. For example, the variable 
in an Assigned GO TO statement is 
not an integer variable; or the 
variable in an assignment 
statement on the left of the equal 
sign is of logical type and the 
expression on the right side does 
not correspond; or an argument in 
a reference to an IBM-supplied 
subprogram is not the type 
required by the subprogram. 
(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


variable in an Assigned GO TO 
statement is an integer variable. 
Verify that any variable in an 
assignment statement on the left 
of the equal sign is not of 
logical type with the expression 
on the right side not in 
correspondence. Make sure that an 
argument in a reference to an 
IBM-supplied subprogram is the 
type required by the subprogram. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


IEYOO2I LABEL 

Explanation: The statement in 
question is unlabeled and follows 
a transfer of control; the 
statement therefore cannot be 
executed. (Condition code - 0) 
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TEYOO31 


ITEYOO4TL 


IEYOO51 
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Programmer Response: Probable 
user error. Correct an unlabeled 


statement following a transfer of 
control, as it cannot be executed. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


® Have source and associated 
listing available. 


NAME LENGTH TEYO06I 


Explanation: The name of a 
variable, COMMON block, NAMELIST 
or subprogram exceeds six 
characters in length; or two 
variable names appear in an 
expression without a separating 
Operation symbol. 

(Condition code - 0) 


Programmer Response: Probable 
user error. Make sure that the 
name of a variable, COMMON block, 
NAMELIST, or Subprogram does not 
exceed six characters in length. 
Check that two variable names do 
not appear in an expression 
without a separating operation 
symbol. If the problem recurs, 
the following before calling IBM 
for programming support: 


IEYOO7I 
do 


*® Have source and associated 
listing available. 


COMMA 


Explanation: The delimiter 
required in the statement has been 
omitted. 

(Condition code - 0) 


Programmer Response: Probable 
user error. Correct or delete 


invalid delimiters and insert the 
required delimiter that has been 
omitted. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e® Have source and associated 
listing available. 


ILLEGAL LABEL 
IEYOO8I 
Explanation: Illegal usage of a 
statement label; for example, an 
attempt is made to branch to the 
label of a FORMAT statement. 
(condition code - 8) 


Programmer Response: Probable 
user error. Correct the illegal 


usage of a statement label. 
Example: No branch to the label 
of a FORMAT statement should be 
coded. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


DUPLICATE LABEL 


Explanation: The label appearing 
in the label field of a statement 
has previously been defined for 
another statement. 


(Condition ccde - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


previously defined label and 
adjust any code referencing the 
label. If the problem recurs, do 
the following before calling IBM 
for programming support: 


e Have source and associated 
listing available. 


ID CONFLICT 


Explanation: The name of a 
variable or subprogram has been 
used in conflict with the type 
that was defined for the variable 
or subprogram in a previous 


statement. (condition code - 8) 
Programmer Response: Probable 


user error. Correct any variable 
or subprogram name used in 
conflict with the type defined for 
the variable or subprogram in a 
previous statement. Examples: 
The name listed in a CALL 
statement is the name of a 
variable; a single name appears 
more than once in the dummy list 
of a statement function; a name 
listed in an EXTERNAL statement 
has been defined in another 
context. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


ALLOCATION 


Explanation: The storage 
allocation specified by a source 
module statement cannot be 
performed because of an 


ITEKO281 


ITEKO30I 


TEKO311I 


TEKO34T 
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e Have source and associated 
listing available. 


THE ASSIGN STATEMENT HAS AN 
INVALID DELIMITER. 


IEKO035I 


(condition code - 8) 


Programmer Response: Probable 
user error. Determine the invalid 
delimiter and correct the 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


*® Have source and associated 
listing available. 


THE DO STATEMENT HAS AN INVALID 
END OF RANGE STATEMENT NUMBER. 

TEKO361 
(Condition code - 8) 
Programmer Response: Probable 
user error. Make sure that the 
end of range statement number is 
an executable statement number 
appearing after the DO statement. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 

THE DO STATEMENT OR IMPLIED DO HAS TEK039I 

AN INVALID INITIAL VALUE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that the 


initial value is either an 
unsigned integer constant greater 
than zero, or an unsigned non- 
subscripted integer variable 
greater than zero. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE ASSIGNMENT STATEMENT BEGINS 
WITH A NON-VARIABLE. 

IEKO4OL 
(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 
statement. Resubmit the job with 
the MAP option to determine the 
nature of the non-variable in 
question, if possible. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 
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e Have source and associated 
listing available. 


THE NUMBER OF CONTINUATION CARDS 
EXCEEDS THE COMPILER LIMIT. 


{Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


statement does not extend over 
more than 19 continuation cards. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


°® Have source and associated 
listing available. 


THE STATEMENT CONTAINS INVALID 
SYNTAX. THE STATEMENT CANNOT BE 
CLASSIFIED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE DEFINE FILE STATEMENT HAS AN 
INVALID ASSOCIATED VARIABLE. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that the 


associated variable is 
non-subscripted and integral. 

Make sure that the associated 
variable does not appear in the 
I/O list of a READ or WRITE for a 
data set associated with the 
DEFINE FILE statement. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


IT IS ILLEGAL TO HAVE A & 
STATEMENT NUMBER PARAMETER OUTSIDE 
A CALL STATEMENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete the & 


statement number. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 
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TEKO44T 


ITEKO45T 


IEKO47I 


ITEKO50I 
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e Have source and associated TEKO521 


listing available. 
ONLY THE CALL, FORMAT, OR DATA 
STATEMENTS MAY HAVE LITERAL 
FIELDS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct the 


misplaced literal field. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS A LITERAL WHICH 
IS MISSING A DELIMITER. 


(Condition code - 8) 


IEKO531 
Programmer Response: Probable 
user error. Insert the missing 
delimiter, or correct the 
erroneous delimiter. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE LITERAL HAS MORE THAN 255 
CHARACTERS IN IT. 

(Condition code - 8) TEKO561I 
Programmer Response: Probable 

user error. Delete the excessive 
characters, or make sure that the 

constant is properly delimited. 

If the problem recurs, do the 

following before calling IBM for 

programming support: 


*® Have source and associated 
listing available. 


THE ARITHMETIC TIF HAS THE SYNTAX 
OF THE BRANCH LABELS INCORRECT. IEKO571 


(condition code - 8) 


Programmer Response: Probable 
user error. Make sure that there 


are three executable statement 
numbers with commas following the 
first two. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE EXPRESSION HAS AN INCORRECT 
PAIRING OF PARENTHESES OR QUOTES. 


(condition code - 8) 


Programmer Response: Probable 
user error. Check that there are 
as many left parentheses as there 
are right. If a FORMAT statement 
contains an H Format Code, check 
that w is large enough to 
accommodate the data and does not 
encompass the closing parenthesis. 
Make sure that there is an even 
number of single quotes, and that 
single quotes within data, if any, 
are represented by two successive 
single quotes. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A MISPLACED 
EQUAL SIGN. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
equal sign indicated. If the 


problem recurs, do the following 
before calling IBM for progranming 
support: 


e Have source and associated 
listing available. 


THE FUNCTION STATEMENT MUST HAVE 
AT LEAST ONE ARGUMENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the function 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


°e Have source and associated 
listing available. 


THE STATEMENT HAS A NON-VARIABLE 
SPECIFIED AS A SUBPROGRAM NAME, 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


non-variable subprogram name. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


ITEKO581 


IEKO591 


TEKO61T 


ITEK0621 
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THE SUBPROGRAM STATEMENT HAS AN 
INVALID ARGUMENT. 


ITEKO64T1 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid argument. Use the MAP 
option to determine its nature, if 
necessary. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE FUNCTION STATEMENT HAS AN 
INVALID LENGTH SPECIFICATION. 


TEKO651 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that the 


length specification is 
permissible for the associated 
type. Check that a type has been 
specified and that DOUBLE 
PRECISION has not been included. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 
TEK066I 

e Have source and associated 

listing available. 


THE EQUIVALENCE STATEMENT CONTAINS 
A NON-SUBSCRIPTED ARRAY ITEM. 
INCORRECT ADCONS MAY BE GENERATED. 


(condition code - 4) 


Programmer Response: Probable 
user error. Include the necessary 


subscripts. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 

listing available. IEKO671I 
THE EQUIVALENCE STATEMENT HAS AN 
ARRAY WITH AN INVALID NUMBER OF 
SUBSCRIPTS. 
(Condition code - 8) 

ramm e Probable 

user error. Delete the invalid 
subscripts or inciude those 
necessary for agreement with the 
associated specification 
statement. If the problem recurs, 
do the following before calling 
IBM for programming support: TEKO69I 
e Have source and associated 

listing available. 
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THE NAMELIST STATEMENT HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct the 


invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE NAMELIST STATEMENT HAS A 
NAMELIST NAME NOT BEGINNING WITH 
AN ALPHABETIC CHARACTER. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


character. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE NAMELIST STATEMENT HAS A 
NON-UNIQUE NAMELIST NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error, Correct the NAMELIST 


name. Invoke the MAP option for 
indications of the use of each 
name, if necessary. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE NAMELIST STATEMENT HAS AN 
INVALID LIST ITEM. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that the list 


item is a variable or array name. 
If the problem recurs, do the 
following before calling IBM for 
programming support: 


* Have source and associated 
listing available. 


THE COMMON STATEMENT HAS AN 
INVALID DELIMITER. 


(Condition code - 8) 
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IEKO711 


TEKO7 21 


IEKO731 
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Programmer Response: Probable 
user error. Delete or correct the 
invalid delimiter. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


THE EQUIVALENCE STATEMENT HAS A 
MISSING OR MISPLACED DELIMITER, IEKO74I 


(Condition code - 8) 


Programmer Response: Probable 
user error. Make sure that there 
are as many left parentheses as 
there are right parentheses. 
Check all commas. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. IEKO751 

THE EQUIVALENCE STATEMENT DOES NOT 

SPECIFY AT LEAST TWO VARIABLES TO 

BE EQUIVALENCED. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check delimiters and 
correct the invalid source. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 

® Have source and associated IEKO761 
listing available. 


THE EQUIVALENCE STATEMENT HAS AN 
INVALID VARIABLE NAME. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Delete or correct the 


invalid variable name. Make sure 
that the variable in question is 
not a dummy argument. If 
necessary, invoke the MAP option 
for indications of the use of 
variable names. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


IEKO771 
® Have source and associated 

listing available. 
THE EQUIVALENCE STATEMENT HAS A 


SUBSCRIPT WHICH IS NOT AN INTEGER 
CONSTANT. 
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(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


subscript. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE STATEMENT HAS A VARIABLE WITH 
MORE THAN SEVEN SUBSCRIPTS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Check that all commas 


are in correct position. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE COMMON STATEMENT HAS A 
VARIABLE THAT HAS BEEN REFERENCED 
IN A PREVIOUS COMMON STATEMENT. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
redundant entry. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT IS NOT THE 
FIRST STATEMENT IN A MAIN PROGRAM 
OR THE SECOND STATEMENT IN A 
SUBPROGRAM. 


(Condition Code - 8) 


Programmer Response: Probable 
user error. Place the IMPLICIT 


statement in correct sequence. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE IMPLICIT STATEMENT HAS A 
MISPLACED DELIMITER IN THE TYPE 
SPECIFICATION FIELD. 


(Condition code ~ 8) 


Programmer Response: Probable 
user error. Correct or delete the 


invalid delimiter. If the problem 


IEK5701 


TEK5801 


ITEK600T 
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TABLE EXCEEDED. 
DOWNGRADED. 


OPTIMIZATION IEK6101 


(Condition code - 0) 


Explanation: Probable user error. 
The program is too large to permit 
optimization. This is a warning 
message and appears in the source 
listing at the point where the 
table (RMAJOR) overflows. The 
compiler performs OPT=1 register 
allocation only; no other 
optimization is performed. 


Programmer Response: Probable 
user error. Either the program 


should be segmented or the size of 
the table RMAJOR should be 
increased. RMAJOR may be 
increased by increasing the size 
of the compiler at system 
generation time. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

e Have source and associated IEK6201 
listing available. 


COMPILER ERROR. 
(Condition code - 16) 


Explanation: One of the following 
four conditions occurred: an 
invalid adjective code was 
detected; an illegal element 
length was detected; no 
equivalence group was found; an 
unusual primary adjective code was 
detected. 


Programmer Response: Probable 
user error. Make sure that the 


source program is correct. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 
IEK6301 
INTERNAL COMPILER ERROR. 
LOGICALLY IMPOSSIBLE BRANCH TAKEN 
IN A COMPILER SUBROUTINE. 


(Condition code - 16) 
Programmer Response: Probable 
user error. Make sure that the 


source code is correct. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


® Have source and associated 
listing available. 
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THE STATEMENT NUMBER OR GENERATED 
LABEL IS UNREACHABLE. 


(Condition code - 4) 


Note: This message is generated 
only if OPT=2 is specified in the 
EXEC statement. 


Programmer Response: Probable 
user error. Make sure that 


control statements indicate 
correct branch targets. Verify 
that an unlabeled STOP, RETURN, or 
GO TO does not immediately follow 
any one of these same three source 
statements. Make sure that the 
statement following an arithmetic 
IF is labeled. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE STATEMENT NUMBER OR GENERATED 
LABEL IS A MEMBER OF AN 
UNREACHABLE LOOP. 


(Condition code - 4) 
Note: This message is generated 


only if OPT=2 is specified in the 
EXEC statement. 





Programmer Response: Probable 
user error. Make sure that 


control statements indicate 
correct branch targets. Correct 
labels so that the loop may be the 
target of a branch. Delete 
invalid terminal source 
statements. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


® Have source and associated 
listing available. 


INTERNAL TOPOLOGICAL ANALYSIS 
TABLE EXCEEDED. 


(Condition code - 16) 


Programmer Response: Probable 
user error. Insert statement 


numbers where a large span of 
source code exists without 
statement numbers. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 
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IEK6501 


ITEK660T 


IEK6611 


IEK6621 
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COVERAGE BY BASE REGISTER 12 IN 
OBJECT MODULE EXCEEDED. 


(Condition code - 16) 


Programmer Response: Probable 
user error. Segment the program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support ; 

e Have source and associated IEK6701 
listing available. 


INTERNAL ADCON TABLE EXCEEDED. 


(condition code ~- 16) 


Programmer Response: Probable 
user error. Segment the program 


and recompile. If SIZE was 
specified, indicate a larger SIZE, 
if possible. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

® Have source and associated IEK6711 
listing available. 


INTERNAL COMPILER ERROR. 
TEMPORARY FETCHED BUT NEVER 
STORED. 


(Condition code - 16) 


Programmer Response: Probable 
user error. Make sure that source 


is correct. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 

® Have source and associated IEK7101 
listing available. 


INTERNAL COMPILER ERROR. 
TO FREE A REGISTER. 


UNABLE 


(Condition code - 16) 


Programmer Response: Probable 
user error. Segment large spans 


of unlabeled source code into 
smaller extents delimited by 
statement numbers. If the problem 
recurs, do the following before 
calling IBM for programming 
support: IEK7201 
® Have source and associated 

listing available. 


INTERNAL COMPILER ERROR. 
TEMPORARY NOT ENTERED IN 
ASSIGNMENT TABLE. 


GN28-0591 


(condition code - 16) 


Programmer Response: Probable 
user error. Make sure that source 


is correct. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


LOGICALLY IMPOSSIBLE BRANCH ‘TAKEN 
IN A COMPILER SUBROUTINE. 


(Condition code - 16) 


Programmer Response: Probabie 
user error. Make sure that source 


code is correct. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


LOGICALLY IMPOSSIBLE BRANCH TAKEN 
IN A COMPILER SUBROUTINE. 


(condition code - 16) 


Programmer Response: Probable 
user error. Make sure that source 


code is correct. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT SPECIFIES A 


FIELD WIDTH OF ZERO. 
(condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 
field width. If the problem 
recurs, do the following before 
calling IBM for programming 


support: 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT CONTAINS AN 
INVALID CHARACTER. 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct or delete the 
invalid character. If the problem 


recurs, do the following before 


IEK730T1 


IEK740I 


TEK750I 


IEK7601 
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calling IBM for programming 
support: 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT HAS 
UNBALANCED PARENTHESES. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


statement. Delete any unnecessary 
or insert missing parentheses. 
Make sure wH specifications are 
correct. If the problem recurs, 
do the following before calling 
IBM for programming support: 


® Have source and associated 
listing available. 


THE FORMAT STATEMENT HAS NO 
BEGINNING LEFT PARENTHESIS. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the source 


statement. If the problem recurs, 
do the following before calling 
IBM for programming support: 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT SPECIFIES A 
COUNT OF ZERO FOR A LITERAL FIELD. 


(condition code - 8) 


Programmer Response: Probable 
user error. Correct the 


incorrectly specified count. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


e Have source and associated 
listing available. 


THE FORMAT STATEMENT CONTAINS A 
MEANINGLESS NUMBER. 

(Condition code - 8) 

Programmer Response: Probable 


user error. Correct or delete the 
invalid number. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


TEK7701 


IEK7801 


TEK800I 


ITEK10001 
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THE FORMAT STATEMENT HAS A MISSING 
DELIMITER. 


(condition code - 8) 


Programmer Response: Probable 
user error. Either correct or 


delete invalid delimiters, or 
insert the missing delimiter. If 
the problem recurs, do the 
following before calling IBM for 
programming support: 


* Have source and associated 
listing available. 

THE FORMAT STATEMENT CONTAINS A 

NUMERIC SPECIFICATION GREATER THAN 

255. 


(Condition code - 8) 


Programmer Response: Probable 
user error. Correct the invalid 


numeric specification. If the 
problem recurs, do the following 
before calling IBM for programming 
support: 


e Have source and associated 
listing available. 


SOURCE PROGRAM IS TOO LARGE. 


(condition code — 16) 


Programmer Response: Probable 
user error. Segment the program 


and recompile. If the problem 
recurs, do the following before 
calling IBM for programming 
support: 


e® Have source and associated 
listing available. 


INTERNAL COMPILER ERROR 


(Condition code - 4) 


Explanation: An erroneous error 
number has been placed in the 
error table. 


Programmer Response: Probable 
user error. If the problem 


recurs, do the following before 
calling IBM for programming 
support: 


e Have source and associated 
listing available. 


System Diagnostics 184.13 


Page Of GC28-6817-2, Revised 12/30/70, by TNL: GN28-0591 


LOAD MODULE EXECUTION DIAGNOSTIC MESSAGES 


The load module produces three types of 
diagnostic messages: 


® Program interrupt messages 
e Execution error messages 
e Operator message 


Program Interrupt Messages 


Program interrupt messages containing 
the old Program Status Word (PSW) are — 
written when an exception occurs. The 
format of the program interrupt message 
when the extended error message facility 
has not been specified at system generation 
time is given in Figure 100. Program 
interrupt messages IHC207I, IHC208I, and 
THC209I are produced only when the extended 
error message facility has been specified. 
The format of these messages can be found 
in the section “Execution Error Messages." 


Note: Codes 4, 5, 6, and 7 are associated 
with the execution-time adjustment of 
boundary alignment errors and appear only 
when the system is generated to provide 
boundary alignment adjustment; i.e., when 
BOUNDRY=ALIGN is specified in the FORTLIB 
macro instruction during system generation 


The letter A in the message indicates 
that boundary adjustment has taken 
place.The letter P in the message indicates 
that the interruption was precise. This 
will always be the case for 
non-specification interrupt messages in 
FORTRAN except when using machines with 
special hardware on which imprecise 
interruptions may occur. The eighth 
character in the PSW (i.e., 4, 5, 6, 7, 9, 
c, D, or F) represents the code number (in 
hexadecimal) associated with the type of 
interruption. The following text describes 
these interruptions. 


Protection Exception: The protection 
exception (code 4), is recognized when the 
key of an operand in storage does not match 
the protection key in the PSW. A message 
is issued only if a specification exception 
(code 6) has already been recognized in the 
same instruction. Otherwise, the job 
terminates abnormally. 


If the extended error message facility 
is specified, the following information is 
provided. 


IBCOM —- PROGRAM INTERRUPT - ALIGNMENT OLD 
PSW IS xxxxxxx4xxxxxxxx 


184,14 


Supplemental Data: None. 


Standard Corrective Action: Continue 
execution at point of interrupt. 





Programmer Response: Probable user error. 
If the job has been terminated with a 
completion code of SYSTEM=0C6 
(specification interrupt), correct the 
source causing boundary misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


e Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
statement and provide the necessary 
GO.SYSUDUMP or GO.SYSABEND DD statement. 


® Make sure that the XREF option is 
specified in the PARM field of the EXEC 
statement and that the necessary DD 
statement is included. 


e Have source and associated listing 
available. 


Addressing Exception: The addressing 
exception (code 5) is recognized when the 
address of the data is outside of the 
available storage for the particular 
installation. A message is issued only if 
a specification exception (code 6) has 
already been recognized in the same 
instruction. Otherwise, the job terminates 
abnormally. 


If the extended error message facility 
is specified, the following information is 
provided. 


IBCOM — PROGRAM INTERRUPT - ALIGNMENT OLD 
PSW IS xxxxxxx5xxxxxxxx 


Supplemental Data: None. 


Standard Corrective Action: Continue 
execution at point of interrupt. 





Programmer Response: Probable user error. 
If the job has been terminated with a 
completion code of SYSTEM=0C6 
(specification interrupt), correct the 
source causing boundary misalignment. If 
the problem recurs, do the following before 
calling IBM for programming support: 


® Make sure that MAP, LIST, and DUMP have 
been specified as parameters on the EXEC 
statement and provide the necessary 
GO.SYSUDUMP or GO. SYSABEND DD statement. 


e Make sure that the XREF option is 
specified in the PARM field of the EXEC 
statement and that the necessary DD 
statement is included. 


® Have source and associated listing 
available. 
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case where the two-dimensional array can be 
logically treated as a set of one- 
dimensional arrays. 


Constants occurring in subscript expres- 
sions are accounted for at compile time and 
have no effect at execution time. 


Program Structure 


If a large number of variables are to be 
passed among calling and called programs, 
some of the variables should be placed in 
the COMMON area. For example, in the main 
program and subroutine EXAMPL 


DIMENSION E(20),1(15) 
READ (10) A,B,C 
CALL EXAMPL(A, B,C,D,E,F,1) 


END 


SUBROUTINE EXAMPL (X,Y,2Z,P,0,R,J) 
DIMENSION 0(20),J(15) 


RETURN 
END 


time and storage are wasted by allocating 
storage for variables in both the main pro- 
gram and subprogram and by the subsequent 
instructions required to transfer variables 
from one program to another. 


The two programs should be written using 
a COMMON area, as follows: 


COMMON A,B,C,D,E(20),F,1(15) 
READ(10) A,B,C 
CALL EXAMPL 


eo 


END 


SUBROUTINE EXAMPL 
COMMON X,Y, Z,_P,Q(20) ,RyJ(15) 


RETURN 
END 


Storage is allocated for variables in 
COMMON only once and fewer instructions are 
needed to cross reference the variables 
between programs. 


To reduce compilation time for 
equivalence groups, the entries in the 
EQUIVALENCE statement should be specified 
in descending order according to offset. 
For example, the statement 


EQUIVALENCE (ARR1(10,10),ARR2(5,5), 
ARR3(1, 1), VAR1) 


compiles faster than the statement 


EQUIVALENCE (VAR1,ARR3 (1,1) ,ARR2(5,5), 
ARR1(10,10)) 


To reduce compilation time and save 
internal table space, equivalence groups 
should be combined, if possible. For 
example, the statement 


EQUIVALENCE (ARR1 (10,10) ,ARR2 (5,5), VAR1) 


compiles faster and uses less internal 
table space than the statement 


EQUIVALENCE (ARR1(10,10),VAR1), 
(ARR2 (5,5) , VARL) 


Logical IF Statements 


A statement such as: 
IF(A. LT. Be OR. C. GT. F(X) .ORse NOT.L) GOTO 10 
is compiled as though it were written: 


IF (A .LT. B) GO TO 10 
IF (Cc .GT. F(X)) GO TO 10 
IF (.NOT. L) GOTO 10 


Thus, if A .LT. B is found to be true, the 
remainder of the logical expression is not 
evaluated. 


Similarly, a statement such as: 
IF (D.NE. 7.0 .AND. E.GE.G) I=Jd 
is compiled as: 


IF (D.EQ. 7.0) GOTO 20 
IF (E.LT.G) GOTO 20 
I=J 

20 CONTINUE 


The order in which a programmer writes 
logical expressions in an IF statement 
affects the speed of execution. 


If A is more often true than B, then 
write A .OR. B rather than B .OR. A; and 
write B .AND. A rather than A .AND. B. 


If any of the following occur in a log- 
ical expression: 
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1. amixture of both .AND. and .OR. 
operators 


2- a.NOT. operator followed by a paren- 
thesized expression 


the entire logical expression must be eval- 
uated and efficiency is lost. 


Branching 


The statement 
IF(A.GT.B) GOTO 20 
gives equivalent or better code than 
IF(A-B)10,10, 20 
10 CONTINUE 


The Assigned GO TO is the fastest condi- 
tional branch. 
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The computed GO TO should be avoided 
unless four or more statement labels occur 
within the parentheses. 


The statement 
IF (1-2) 20, 30, 40 
is significantly faster than 


GOTO (20,30,40), I 


Name Assignment 


For its internal use, the compiler 
places names used for variables, arrays, 
and subprograms into a table. This table 
is divided into six strings and is searched 
Many times during compilation. Names that 
are one character long are placed in the 
first string; names two characters long are 
placed in the second string; and so on. 

For faster compiling, the names should be 
distributed equally among the six strings. 


APPENDIX I: CONSIDERATIONS FOR MODELS 91 AND 195 


This appendix discusses FORTRAN program- 
ming factors that are of special concern to 
users of IBM System/360 Models 91 and 195. 


PROGRAM INTERRUPTION EXIT ROUTINE 


The library subroutine that handles 
interruptions has been modified to recog- 
nize precise, imprecise, and multiple 
imprecise interruptions. Multirle impre- 
cise interruptions may require that the 
subroutine set more than one of the indica- 
tors (for divide check, exponent overflow, 
and exponent underflow). 


Modifications are made to the message 
that is issued for the following program 
exceptions: 

e Fixed-point divide 


e Decimal divide 


Floating-point exponent overflow 


Floating-point exponent underflow 


Floating-point divide 
The format of the message issued is 


IHC210I PROGRAM INTERRUPT (x) OLD PSW 
Is y 


where x represents one of the letters P 
(for precise), I (for imprecise), or M (for 
multiple imprecise of different classes), 
and y is the hexadecimal representation of 
the old PSW. 


BOUNDARY ADJUSTMENT ROUTINES (MODEL 91 
ONLY) 


Specification of a system generation 
option, BOUNDRY=ALIGN, will provide boun- 
dary adjustment routines for correction of 
instructions that cause specification 
exceptions. However, the nature of these 
fix-up routines requires the identification 
of the instruction that causes the excep- 
tion. Since specification exceptions on 
the Model 91 generate imprecise interrup- 
tions, boundary adjustm2nts cannot be made. 
Thus, when the FORTRAN library is specified 
for the Model 91, boundary alignment must 
not be requested. Because BOUNDRY=ALIGN is 
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the default option, BOUNDRY=NOALIGN must be 
specified. If BOUNDRY=NOALIGN is not spe- 
cified during system generation for the 
Model 91, an error message will occur. 


Note: If boundary alignment were allowed, 
the related task eventually could be ter- 
minated for the following reason: Boundary 
alignment is made with respect to the 
instruction addressed by the program old 
PSW, but since the related interruption may 
have been imprecise, the old PSW may not 
contain the address of the incorrect 
instruction. 


FLOATING-POINT OPERATIONS 


For the Models 91 and 195, floating- 
point operations are somewhat different 
from what they are on other models. Dis- 
cussed below are two of these differences. 


Exponent Overflow 


A floating-point exponent overflow 
exception results in the maximum floating- 
point number (see the publication IBM 
System/360 Principles of Operation) being 
placed in the result register. The correct 
sign of the result is appended to the 
result in the register. For operations 
using long precision, all 56 of the frac- 
tion bits in the register are set to one. 
For operations using short precision, the 
low-order 32 bits in the register remain 
unchanged. In addition and subtraction, 
the condition code reflects the sign of the 
result. This exception produces an impre- 
cise interruption. 


Exponent Underflow 


The result of an exponent underflow 
exception is that a true zero is placed in 
the result register. For long-precision 
Operations, all 56 of the fraction bits in 
the register are set to zero. For short- 
precision operations, the low-order 32 bits 
in the register remain unchanged. In addi- 
tion and subtraction, the condition code is 
set to zero. This exception produces an 
imprecise interruption if the mask bit (bit 
38) in the PSW is set to one. 
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Note: Whenever an interruption occurs on 
other models of System/360, system routines 
provide the setting of the result register 
when requested. To maintain compatibility, 
these operations are performed in the hard- 
ware of the Models 91 and 195 since the 
imprecise interruption prohibits the pro- 
gramming technique. 
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preallocated 56-57 
processing for input only 63-64 
processing for output only 63-64 
utility 44,81 

data spill 91 

DATA statement 91,92 

DCB parameter 32,57, 64-65, 73 

DD (data definition) statement 
examples of 58 
information specified in 28 


parameters 
asterisk (*) 31 
DATA 31 
DCB 32 
ddname 49-51 
DDNAME 60 


DISP 34-35 
DSNAME 33-34, 60 


DUMMY 60 
LABEL 63 

PASSWORD 63 

SEP 97,98 

SPACE 60,62, 98-99 
SPLIT 99 


SUBALLOC 99 
SYSOUT 31,32,64 
UNIT 31,61 
VOLUME 61 
DDNAME parameter 60 
ddnames 40, 46,49,54-55 
Debug facility 
DISPLAY statement 189 
INIT option 189 
SUBCHK option 189 
SUBTRACE option 189 
TRACE option 189 
UNIT option 189 
DECK compiler option 43,105 
Dedicated work data set 
function of 56-57 
parameters 
DCB 57 
DISP 57 
DSNAME 57 
EXPDT/RETPD 57 
SUBALLOC 57 
UNIT 57 
VOLUME 57 
DEFER subparameter 98 
DEFINE FILE statement 
reference numbers used in 50 
with spanning 71 
use with DD statement 60 
DELETE specification 35 
Delimiter statement 14,35 
DEN subparameter 
restriction with SYSOUT 64 
specification 64,65 
Density values 65 
Device affinity 98 
Diagnostic Messages 
compiler 
FORTRAN (G) 157-165 
FORTRAN (H) 165-184.13 
extended error handling 184.14-185 
load module execution 184.14-186 
loader 113 
operator 186 


Direct access data sets 
buffers for 71 
programming considerations 93-95 
record length considerations 70 
space requirements 62-63 
spanning considerations 71 
Directory index 12 
DISP parameter 35,57 
Dispatching priority 27 
DISPLAY statement 189 
DO loops 
implied 93 
optimization of 
FORTRAN (G) 90-91 
FORTRAN (H) 191~-192 
DPRTY parameter 27 
DSN parameter 31, 33-34,60 
DSNAME parameter 30, 33~-34,57,60 
DUMMY parameter 60 
DUMP subroutine 989-90 


EBCDIC 
compiler option 43 
mode 32 


translation 65 
EDIT compiler option 37,44,81 
Embedded blanks, use of 89 
END FILE statement 50-51 
End-of-data indicator 50-51 
END option 51,60 
ENTRY statement 48,121-122 
EP loader option 56 
EQUIVALENCE groups 88 
EQUIVALENCE statement 93,194 
ERR option 52 
ERR parameter 90 
Error codes 19 
Error message data set 54 
Error messages 

(see Diagnostic messages) 
Error monitor 123-124 
ERRSET subprogram 126-127 
ERRSTR subprogram 127 
ESD card 107 
exclusive references 118 
EXEC statement 

function 14 

information specified in 21 

name field 23 


parameters 
ACCT 26 
COND 25 
DPRTY 27 
PARM 25,42-44 
PGM 23,24 
PROC 23 


REGION 22,26-27 
SIZE 28,81 
TIME 26. 
Execution device classes 54 
EXPDT subparameter 57,64 
Exponent overflow 197 
Exponent underflow 197 
Extended American National Standard 
Carriage Control Characters 187 
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Extended error handling facility 
functional characteristics 123-124 
obtaining a traceback 125 
option table (see Option table) 
subprograms for using 124 
user-supplied-exit considerations 

126-127 


File-protected tape volumes 63 
FIND statement 95-96 
Fixed-length records 67-68, 68-69 
Fixed-point overflow 989,184.16 
Floating-point operations 
Model 91 197 
Model 195 197 
FORMAT control 
blocked records 68-70 
unblocked records 67-68 
FORTGC 
control statements 74 
function 12,37 
invoking of 37 
FORTGCL 
control statements 74 
function 12,38 
invoking of 38 
FORTGCLG 
control statements 78 
error codes 19 
function 12,39 
invoking of 39 
FORTGLG 
control statements 75-77 
function 12,38 
invoking of 38 
FORTHC 
control statements 82 
function 12,37 
invoking of 37 
FORTHCL 
control statements 82,983 
function 12,38 
invoking of 38 
FORTHCLG 
control statements 82,85 
error codes 19 
function 12,39 
invoking of 39 
FORTHLG 
control statements 82,84 
function 12,38 
invoking of 38 
FORTLIB macro instruction 88 
FORTRAN compiler, invoking of 139 
FORTRAN library 97 
FORTRAN record 67 
FORTRAN sequence number 50-51 


Graphic units 188 


IBCOM 111 

ID compiler option 43-44 
IEKAAOO 39 

IEWL 45 

IEWLPRGO 54 

TEWLE150 45 
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IEWLE180 45 
IEWLF128 45 
IEWLF44O 45 
IEWLF880 45 
IEYFORT 39 
IF statement 89,195-196 
Implied DO 93 
Imprecise interruptions 184.14,198 
IN subparameter 63-64 
INCLUDE statement 47,121 
inclusive references 117 
Indicators 8:9 
Induction variable optimization 193-194 
INIT option 189 
initialization of data 91-92 
INSERT statement 48,120-121 
Invoking cataloged procedures 

FORTGC 37 

FORTGCL 38 

FORTGCLG 39 

FORTGLG 38 

FORTHC 37 

FORTHCL 38 

FORTHCLG 39 

FORTHLG 38 
Invoking the FORTRAN compiler 139 
I/O devices 

address 31 

affinity 98 

BLKSIZE ranges for 71 

class 31 

optimization 97-98 

unit type 31,188 


Job 
assigning priority to 20 
conditions for terminating 19 
relationship to job step i11 
Job accounting information 17 
Job control language 
definition 11 
(see also Job control statements) 
Job control statements 
coding of 14 
comment 14,36-37 
comments field 15 
continuing 15 
DD 14 
delimeter 14,35 
EXEC 14 
JOB 14 
name field 14 
notation for defining 16 
operand field 15 
operation field 15 
processing of 14 
use of 11 
Job processing, examples of 140-145 
Job scheduler 14 
JOB statement 
function 14 
parameters 
account number 17 
COND 19 
MSGCLASS 20 
MSGLEVEL 18,19 
programmer's name 17 
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PRTY 20 
REGION 18, 20-21 
TIME 21 

Job step 


conditions for bypassing 25 

main storage requirements 26-27 

relationship to job 11 

time limits, setting of 26 
JOBLIB 29,30,49 


KEEP specification 35 
Keyword parameters 15 


Label map 102 
LABEL parameter 63 
Labels 
bypassing processing of 63 
contents of 13 
data set 13 
standard 13,63 
LET 
linkage editor option 49 
loader option 55 
overlay processing option linkage 
editor 122 
Library, FORTRAN 97 
LIBRARY statement 47 
LINECNT compiler option 43 
LINK macro instruction 139 
Linkage conventions 148,149 
Linkage editor 
control statements 
ALIAS 48 
CHANGE 48 
ENTRY 48,121-122 
INCLUDE 47,121 
INSERT 48,120-121 
LIBRARY 47 
OVERLAY 48,120 
REPLACE 48 
cross-reference list 109 
ddnames 46 
device classes 46,47 
module map 109,110 
names 45 
options 
LET 49 
LIst 49 
MAP 49,109 
NCAL 49 
XREF 49,109 
overlay feature 
design 114-118 
exclusive references in 118 
inclusive references in 117 
paths 115 
processing 118-119 
processing options 


LET 122 
LIST 122 
MAP 122 
OVLY 122 
XCAL 122 
XREF 122 


segments 114-115,117 
Linkage registers 147 


LIST compiler option 43,102 
LIST linkage editor option 49 
LIST linkage editor overlay processing 
option 122 
Literal constants 96 
LOAD compiler option 43 
Load module output 111-112 
Loader 
ddnames 54-55 
device classes 54 
diagnostic messages 113 
error messages 113 
input 54 
name (IEWLPRGO) 54 
options 
CALL 55 
EP 56 
LET 55 
MAP 55 
NOCALL 55 
NOLET 55 
NOMAP 55 
NOPRINT 56 
PRINT 56 
SIZE 55 
output 54,113 
priority 55 
storage map 113 
Logical backspace 70-71 


Macro instructions 
ATTACH 139 


CALL 139 
FORTLIB 88 
LINK 139 


PREFACE 127 
SETENT 127-128 
MAP compiler option 
explanation 43 
storage maps 100-102 
MAP linkage editor option 
explanation 49 
module map 109-110 
MAP linkage editor overlay processing 
option 122 
MAP loader option 55 
Master scheduler 14 
Messages 
compiler 
FORTRAN (G) 157-165 
FORTRAN (H) 165-184.13 
extended error handling 184.14-185 
load module execution 184.14-186 
operator 186 
MODE subparameter 32 
Model 91 considerations 197-198 
Model 195 considerations 197-198 
MSGCLASS parameter 20 
MSGLEVEL parameter 18,19 
MXIG subparameter 63 


NAME compiler option 43 
NCAL 
linkage editor option 49 
loader option 55 
NL subparameter 63 
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NODECK compiler option 43 
NOEDIT compiler option 44 
NOID compiler option 43-44 
NOLET loader option 55 
NOLIST compiler option 43 
NOLOAD compiler option 43 
NOMAP 

compiler option 43 

loader option 55 
NOPRINT loader option 56 
NOSOURCE compiler option 43 
NOXREF compiler option 44 


Object module card deck 105-107 
Object module deck structure 107-108 
Object module listing 102-105 
Operating System/360, overview of 11-13 
Operator intervention, avoiding 63~64 
Operator messages 186 
OPT compiler option 44 
OPTCD subparameter 
chained scheduling considerations 
specification 65,66 
Optimization, channel 97-98 
Optimization, compiler 44,191-196 
Optimization facilities, FORTRAN (H) 
COMMON block considerations 194 
common expression elimination 193 
EQUIVALENCE statement considerations 
194-195 
induction variables 193-194 
loop considerations 192-194 
multidimensional arrays 194-195 
program structure 195 
programming considerations 191 
register allocation 194 
Option table 
accessing entries from 124-125 
altering 124-125 
considerations 127 
creating 127-128 
default values 127,131 
description of 123,124 
description of entries 123 
Options 
compiler 24-25,41-44 
FORTRAN (G) 
BCD 43 
DECK 43 
EBCDIC 43 
ID 43-44 
LINECNT 43 
LIsT 43 
LOAD 43 
MAP 43 
NAME 43 
NODECK 43 
NOID 43-44 
NOLIST 43 
NOLOAD 43 
NOMAP 43 
NOSOURCE 43 
SOURCE 43 


66,93 
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FORTRAN (H) 
BCD 43 
DECK 43 
EBCDIC 43 
EDIT 44 
ID 43-44 
LINECNT 43 
LIST 43 
LOAD 43 
MAP 43,100,101-102 
NAME 43 
NODECK 43 
NOEDIT 44 
NOID 43-44 
NOLIST 43 
NOLOAD 43 
NOMAP 43 
NOSOURCE 43 
NOXREF 44 
OPT 44 
SOURCE 43,100 
XREF 44 
linkage editor 
LET 49 
LIstT 49 
MAP 49,109-110 
NCAL 49 
XREF 49,110 
loader 
CALL 55 
EP 56 
LET 55 
MAP 55 
NOCALL 55 
NOLET 55 
NOMAP 55 
NOPRINT 56 
PRINT 56 
SIZE 55 
overlay processing, linkage editor 
LET 122 
List 122 
MAP 122 
OVLY 122 
XCAL 122 
XREF 122 
OR function 91,92 
OUT subparameter 63 
Output 
compiler 100-109 
linkage editor 109 
loader 54-56,113 
load module 110 
system 100-113 
Output stream 64 
Overflow 
exponent 197 
fixed-point 
Overlay feature 
(see Linkage Editor) 
OVERLAY statement 48,120 
OVLY linkage editor overlay processing 
option 122 


24-25, 49 


89,184.16 


Pads, overlay 115-117 
Parameters 
keyword 15 
positional 15 
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Parity 65 

PARM parameter 24<25 

Partitioned data sets 
(see also Data sets) 

PASS specification 35 

PASSWORD parameter 63 

PAUSE statement 112,186 

PDUMP subroutine 89-90 

PGM parameter 23-24,49 

Positional parameters 15 

PREFACE macro instruction 127 

PRINT loader option 56 


52-53, 60 


Priority 
dispatcher 27-28 
loader 55 


Priority schedulers 
account number relationship 17 
definition 14 
PRIVATE keyword 61 
Private volumes 61 
POC parameter 23 
Procedures, cataloged 
definition of 11-12 
for FORTRAN (G) 
compile 74 
compile and linkage edit 74-75 
compile, linkage edit, and execute 
77 
FORTGC 
control statements 74 
function 12,37 
invoking of 37 
FORTGCL 
control statements 
function 12,38 
invoking of 38 
FORTGCLG 
control statements 78 
error codes 19 
function 12,39 
invoking of 39 
FORTGLG 
control statements 
function 12,38 
invoking of 38 
linkage edit and execute 75-77 
overriding 78-80 
user-written 77 
for FORTRAN (H) 


74 


75-77 


compile 81 
execute 82-83 
FORTHC 


control statements 85 
function 12,37 
invoking of 37 
FORTHCL 
control statements 
function 12,38 
invoking of 38 
FORTHCLG 
control statements 
error codes 19 
function 12,39 
invoking of 39 
FORTHLG 
control statements 
function 12,38 
invoking of 38 


85-86 


86-87 


86-87 


linkage edit 82 
overriding 84-87 
user-written 983-84 
invoking 12 
modifying 12 
names 12 
Processing efficiency, increasing 92-93 
Program interrupt messages 112 
Program interruption exit routine, 
Model 91 197 
Model 195 197 
programmer name 18 
PRTY parameter 19 


RECFM subparameter 
DD statement considerations 
specification 65,66 

Record chaining 94-95 

REF subparameter 61,62 

REGION parameter 
in EXEC statement 22,26-27 
in JOB statement 18,20-21 

REPLACE statement 48 

Requirements, system 88 

Restrictions 
BACKSPACE statement 53 
compiler 96 
DEN subparameter 64 

RETAIN keyword 61 

RETPD subparameter 57,64 

RETURN i simulation 151 

REWIND statement 53 

RLD card 107 

RLSE subparameter 
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62 


Save area 146 

SAVE macro instruction 111 

Scalar variables 100 

sDW 70 

Segment descriptor word (SDW) 

Segments, overlay 114,115 

Sense lights 89 

SEP parameter 97-98 

Separation, channel 

Sequential schedulers 
account number relationship 18 
definition 14 

SER subparameter 61 

SETENT macro instruction 127-128 

7-track tape conversion 65 

SIZE option (loader) 55 

SIZE parameter 44,81 

SL subparameter 63 

SOURCE compiler option 43,100 

Source listing 100 

SPACE parameter 
for direct-access data sets 
specification 59,99 


70 


97-98 


62, 98-99 


Spanned records 66,69 
Spanning 67,71 

SPLIT parameter 99 
Split cylinders 99 


STACK subparameter 32 
Stacker selection 32 
Statistics, compiler 
STEPLIB 29,30 


165-166 
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STOP statement 89,112-113,186 
Storage locations 
bytes 88 
doublewords 88 
words 88 
Storage map 100-102,113 
Storage requirements for compiler 28,81 
Structured source listing 44,108-109 
SUBALLOC parameter 57,99 
SUBCHK option 189 
Subprograms, assembler language 
argument list 146 
calling sequence 146 
example of 152 
linkage conventions 148,149 
RETURN i simulation 151 
save area 146 
subroutine references 146 
Subroutine references 146 
SUBTRACE option 189 
SYSABEND ddname 
as abnormal termination dump data set 
29,30 
device requirements 40 
function 40 
possible device class 41 
SYSCP device class 41 
SYSDA device class 41 
SYSIN ddname 
DCB assumptions for, (H) compiler 42 
load module execution, assumptions for 
72 
device requirements 40 
function 40 
possible device class 41 
record length, (H) compiler 66 
SYSLIB ddname 46 
SYSLIN ddname 
DCB assumptions for, (H) compiler 42 
device requirements 40,46 
in example 47 
function 40,46 
load module execution, assumptions for 
72 
possible device classes 41 
record length, (H) compiler 66 
SYSLMOD ddname 46,47 
SYSLOUT ddname 55 
SYSOUT parameter 32,64 
SYSPRINT ddname 
DCB assumptions for, (H) compiler 42 
device requirements 40,46 
function 40,46 
load module execution, DCB assumptions 
for 72 
possible device class 41,46-47 
record length 66 
SYSPUNCH ddname 
device requirements 40 
function 40 
load module execution, DCB assumptions 
for 72 
possible device class 41 
record length 66 
SYSSQ ddname 41 
System output 100-113 
System requirements 88 
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SYSUDUMP ddname 
as abnormal termination data set 30 
device requirements 40 
function 40 
possible device class 41 
SYSUT1 ddname 
DCB assumptions for, (H) compiler 42 
device requirements 40,46 
function 40,46 
possible device class 41,47 
use with EDIT option 44,81 
SYSUT2 ddname 
DCB assumptions for, (H) compiler 42 
device requirements 40 
function 40 
possible device class 41 
use with XREF option 44,81 
SYS1.FORTLIB 12,45 
SYS1. LINKLIB 
concatenating with 30 
with PGM parameter 49 
as system library 23 


Tape density 64,65 
Tape units 188 
Time limits, setting of 26 
TIME parameter 21, 26 
TRACE option 189 
Traceback 

without extended error handling 

facility 111-112 

Map 123 

obtaining 125 

sample of 112 
Translation from BCD 65 
TRK subparameter 62,99 
TRTCH subparameter 64,65 
TXT card 107 


Unblocked records 
with FORMAT control 67-68 
without FORMAT control 70 
UNCATLG specification 35 
Undefined records 68 
Underflow, exponent 197 
UNIT option 189 
UNIT parameter 
dedicated work data sets 57 
explanation 31-32, 61 
unit types 187 
Unit record data sets 32,64 
Unit record equipment 187 
Utility data sets 
dedicated 56-57 
partitioned 44,81 


Variable-length records 68,69 
Variables, object-time representation of 
151-155 

VOL parameter 61 

VOLUME parameter 57,61 

Volume-count specification 61 

Volume-sequence-number specification 61 

Volumes, program 61 
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Warning messages 
compiler 
FORTRAN (G) 157-165 
FORTRAN (H) 165-184.13 
extended error handling 184.14-185 
load module execution 184.14-186 
Operator 186 
Work data sets 
dedicated 56-57 
partitioned 44,82 


XCAL linkage editor overlay processing 
option 122 
XREF 
compiler option 44,81,108 
linkage editor option 49,109 
overlay processing options, linkage 
editor 122 


7-track tape conversion 65 
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